Описать, используя структуру данных запись, данные на учеников (фамилия, улица, дом, квартира). Составить программу, определяющую сколько учеников живет на улице Свердлова, списки учеников, живущих в доме номер 45 — Pascal(Паскаль)

type
  shcolota = record
    fam: string[50];
    ulitsa: string[70];
    dom: integer;
    kvart: integer;
  end;
 
var
  a: array[1..100] of shcolota;
  i, n, d: integer;
  kol: integer;
  k: string;
 
 
begin
  writeln('кол-во учеников');
  readln(n);
  for i := 1 to n do 
  begin
    with a[i] do 
    begin
      writeln('фамилия');
      readln(fam);
      writeln('улица');
      readln(ulitsa);
      writeln('дом');
      readln(dom);
      writeln('квартира');
      readln(kvart);
    end;
  end;
  writeln('введите улицу для поиска');
  readln(k);
  for i := 1 to n do 
  begin
    if a[i].ulitsa = k then begin
      inc(kol);
    end;
  end;
  writeln('кол-во учеников', ' ', kol);
  writeln('номер дома');
  readln(d);
  writeln('списки учеников');
  for i := 1 to n do 
  begin
    if a[i].dom = d then begin
      writeln(a[i].fam);
    end;
  end;
  readln;
end.