Описать, используя структуру данных запись, данные на учеников

program P3; 
type 
students=record 
fam: string[20]; 
street:string[30]; 
dom:integer; 
kvart:integer; 
end; 
Var j:integer; 
d: array[1..4] of students; 
begin 
writeln('введите данные об учениках'); 
for j:=1 to 4 do 
begin 
writeln('введите фамилию');readln(d[j].fam); 
writeln('введите улицу');readln(d[j].street); 
writeln('введите дом');readln(d[j].dom);
writeln('введите квартиру');readln(d[j].kvart);  
end; 
writeln('На улице Пушкина живут: '); 
for j:=1 to 4 do 
if (d[j].street = 'Пушкина') then write(d[j].fam, ' '); 
writeln; 
writeln('В доме 45 живут: '); 
for j:=1 to 4 do 
if (d[j].dom = 45) then write(d[j].fam, ' '); 
writeln; 
end.

program P3;
type
students=record  //тип запись с полями
fam: string[20]; //фамилия
street:string[30]; //улица
dom:integer;   //дом
kvart:integer; //квартира
end;
Var j:integer;//переменная-счетчик цикла
    k:integer;//фиксатор результата поиска
    d: array[1..4] of students; //массив из 4 записей
begin
//ввод данных
writeln('введите данные об учениках');//ввод данных
for j:=1 to 4 do
 begin
  writeln('введите фамилию');readln(d[j].fam);
  writeln('введите улицу');readln(d[j].street);
  writeln('введите дом');readln(d[j].dom);
  writeln('введите квартиру');readln(d[j].kvart);
 end;
//поиск живущих на улице Пушкина
k:=0;
writeln('На улице Пушкина живут: ');
for j:=1 to 4 do //идем по массиву
if (d[j].street = 'Пушкина') then
 begin
  write(d[j].fam, ' ');//если да, то выводим фамилии в строку
  k:=1; //фиксируем наличие
 end;
writeln; //на новую строку
if k=0 then writeln('Таких нет');
//поиск живущих в домах с номером 45, все также
writeln('В доме 45 живут: ');
k:=0;
for j:=1 to 4 do
if (d[j].dom = 45) then
 begin
   write(d[j].fam, ' ');
   k:=1;
 end;
if k=0 then writeln('Таких нет');
end.

for i:=1 to j do
begin
end;

for i:=1 to j do
with a[i] do
begin
if street = 'Пушкина' then writeln(fam);
end;