задача работает неправильно, подскажите!

[IvanIvan]

Имеется список жителей ряда городов с их адресами.

Составить алгоритм и программу анализа данного списка с выводом фамилий
двух (или более) жителей , живущих вразных городах по одинаковым адресам.

Указания: 1)решить с использованием процедуры "ирония_судьбы".

2)в решении использовать тип данных ЗАПИСЬ с полями:

-Ф.И.О.,

-город,

-адрес:ЗАПИСЬ с полями:

-улица,

-дом,

-квартира



Program Adr;
uses Crt;
type
adres=record
init:string;
city,street,home,flat:string[20];
end;
var
a:array[1..100] of adres;
p:byte;
i:integer;

procedure adresswrite;
begin
clrscr;
writeln('Vvedite dannie o jitelax:');
writeln('Љ®«ЁзҐбвў® jiteley?');
readln(p);
for i:=1 to p do
begin
with a[i] do begin
writeln('F.I.O: ');
readln(init);
writeln('Gorod: ');
readln(city);
writeln('Adress: ');
writeln('Ulica:');
readln(street);
writeln('Dom: ');
readln(home);
writeln('Kvartira:');
readln(flat);
writeln('---------------')
end;
end;
end;

Procedure adressread;
var
g,j:integer;
begin
clrscr;
g:=0;
for i:=1 to p-1 do
for j:=i+1 to p do
begin
if (a[i].home=a[i+1].home) and (a[i].flat=a[i+1].flat) and (a[i].street=a[i+1].street) then
writeln('Odinakovie adresa u jiteley:');
writeln('jitel ',i);
writeln(a[i].init);
writeln('Gorod: ');
writeln(a[i].city);
writeln('Ulica: ');
writeln(a[i].street);
writeln('Dom: ');
writeln(a[i].home);
writeln('Kvartira: ');
writeln(a[i].flat);
writeln('*************');
g:=1;
end;
if g=0 then
writeln ('nety');

end;
begin
adresswrite;
adressread;
readkey;
end.


заранее благодарен за ответ!

[IvanIvan]

это в Паскале!