Записи в файле

[shadezx]

Доброго времени суток! у меня возник вопрос.мне в файл нужно записать массив записей, потом из этого массива нужно считать имя.для того что б считать им'я нужно считать 4 строчку из файла подскажите как Это Сделать?

program L2_Zadanie2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

Type
  Phone=record
    Name:string [70];
    Adres:string [70];
    Tel:byte;
  End;
Var
  Myphone:phone;
  I,n:integer;
  mas:array[1..10] of Phone;
  F1:text;
Begin
  Writeln('Kol-vo n = ');
  Readln(n);
  Assign(f1,'input.txt');
  //Assign(f2,'output.txt');
  Rewrite(f1);
  For i:=1 to n do
  With mas[i] do
    Begin
       write(' Name = ');
       Readln(name);
       write(' adres = ');
       Readln(adres);
       write(' telephon = ');
       Readln(tel);
    End;
    for i:=1 to n do
    begin
     Writeln(f1,mas[i].name);
     Writeln(f1,mas[i].adres);
     Writeln(f1,mas[i].tel);
    end;
  Close(f1);
 end.

вот код, записует в файл имя адрес и телефон , потом мне нужно в етом файле написать фамилию и потом считать ее в какуюто переменую, вопрос как считать 4 строку?