Сформировать два файла. В один из них поместить

uses crt;
var f,t: text;
    s,sf,st: string;
    k: integer;
    
begin
assign(f,'D:\familii.txt');                           //ассоциируем файлы с переменными
assign(t,'D:\telefony.txt');
write('Укажите фамилию: '); readln(s);               //запрашиваем строку-фамилию
reset(f); reset(t);                                  //открываем файлы для чтения
while not (eof(f)) do                                //пока не кончится файл
      begin
      readln(f,sf);                                  //считываем из файла фамилий строку
      readln(t,st);                                  //считываем из файла телефонов строку
      if sf=s then                                   //если фамилия равна заданной
         begin
         inc(k);                                      //увеличиваем количество найденных
         writeln(st);                                //выводим телефон
         end;
      end;
if k>0 then writeln('По запросу "',s,'" всего найдено ',k)
   else writeln('По запросу "',s,'" ничего не найдено ');
close(f); close(t);
end.