Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица,...

Question

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

Answer 1

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.