Написать программу , которая позволяет найти нужные сведения в телефонном справочнике d\phone.txt программа должна запрашивать фамилию человека и выводить его в телефон. Если в справочнике есть одинаковые фамилии, то программа должна ввести список всех людей, имеющих эти фамилии.

PascalABC.Netconst//Формат файла //Фамилия имя номер    fl = 'D:\phone.txt';  var   t : text;   c : char;   Fnm,s : string; begin  assign (t,fl);  reset (t);    writeln ('Укажите фамилию');  readln (Fnm);  writeln();     While not eof (t) do    begin     s := '';          //Считываем фамилиюread (t,c);         While c <> ' ' do       begin        s := s + c;        read (t,c);       end;//Если Фамилию нужная то дочитываем            //иначе переходим к следующемуif s = fnm then      begin       write (s+' ');        While not eoln(t) do         begin          read (t,c);          write (c);         end;       readln (t);       writeln ();     end     else      readln (t);         end;  close (t); end.