Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица, № дома. Написать программу, позволяющую вывести список учеников, проживающих в городе

type  Uch=record    fam:string[20];    nam:string[20];    city:string[20];    street:string[20];    numb:string[8]  end;var  f:file of Uch;  bUch:Uch; { буфер }  c:string;begin  Assign(f,'Uch.txt');  Reset(f);  Write('Введите название города: '); Readln(c);  while not Eof(f) do begin    Read(f,bUch);    if c=Trim(bUch.city) then      With bUch do Writeln(fam,' ',nam,' ',street,' ',numb)  end;  Close(f)end.