Работа с текстовым файлом

[Dextex]

Нужно, чтобы программа помимо вывода в результирующий файл среднего возраста и роста студентов, выводила фамилию и имя студентов, проживающих в городе, название которого будет введено с клавиатуры.
Anketnye_dannye (2).txt

const
  g = 2021;
  inpname = 'Anketnye_dannye.txt';
  outname = 'Result.txt';
var
  tr, tw, n, errg, errr: integer;
  r, w: real;
  s: string;
  f: text;
 
begin
  assign(f, inpname);
  reset(f);
  for n := 1 to 3 do readln(f);
  n := 0;
  while not eof(f) do
    begin
      readln(f, s);
      val(copy(s, length(s) - 5, 3), tr, errr);
      val(copy(s, pos('.', s) + 4, 4), tw, errg);
      if errr + errg = 0
        then begin
          inc(n);
          r := r + tr;
          w := w + g - tw
        end
        else break
    end;
  close(f);
  if (errr + errg = 0) and (n > 0)
    then begin
      r := r / n;
      w := w / n;
      assign(f, outname);
      rewrite(f);
      writeln(f, 'Средний рост студентов: ', r:0:2);
      writeln(f, 'Средний возраст студентов: ', w:0:2);
      close(f);
      write('Результат записан в файл ', outname)
    end
    else write('Входной файл ', inpname, ' имеет неверный формат');  
end.

[digitalis]

Тут зависит от того - когда введено название города. Если до чтения файла, то в обработке каждой строки дополнительно проверять на совпадение. Иначе придётся второй раз заново читать файл. Я бы организовал массив строк - сначала чтение файла, потом - обработка.
Поиск - просто: все родились, надеюсь, в этом тысячелетии? Ищем подстроку '.20', отступаем вперёд сколько надо (мне считать лень) и копируем остаток строки до пробела. И - вот вам ваш Сыктывкар.