Pascal/Turbo Pascal - Ayuda con un programa de texto :(

Uses CRT;

var

  n,linea : string;

  f : text;

begin

  clrscr;

  Writeln('Introduzca el nombre del archivo a leer');

  readln(n);

  assign(f,n);

  {$i-}reset(f);{$i+}

  if ioresult<>0 then

    begin

      Writeln('Error al abrir el archivo o el archivo no existe. Pulse una tecla para continuar...');

      readkey;

      halt(0);

    end

  else

    While not eof(f) do

      begin

        clrscr;

        readln(f,linea);

        writeln(linea);

      end;

end.