Помогите пожалуйста!
тема:записи и множества
условие:Описать, используя структуру данных запись, данные на учеников (фамилия, улица, дом, квартира). Составить программу, определяющую сколько учеников живет на улице Свердлова, списки учеников, живущих в доме номер 45.
Из данной программы сделать программу с использованием процедур и функций
Код:
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.