Создать на диске текстовый файл, ввести в него произвольный текст, затем вывести 2-ую строку текста

program zadanie4_2;
var
f:file of text;
n,i,a:integer;
begin
assign(f,'filetext.txt');
reset(f);
while not eof(f) do
begin
seek(f,1,2);
for i:=1 to n do
writeln(a);
close(f);
end;

program zadanie4_2;
 
var
  f: text;
  n, i, a: integer;
  s: string;
 
begin
  assign(f, 'filetext.txt');
  reset(f);
  readln(f,s);
  readln(f,s);
  writeln(s);
  readln;
end.

program zadanie4_2;
 
var
  f: text;
  i: integer;
  s: string;
 
begin
  assign(f, 'filetext.txt');
  reset(f);
  i:=0;
  while not eof(f) do
  begin
    readln(f,s);
    inc(i);
    if i=2 then writeln(s);
  end;
  readln;
end.