Не могу её осилить,помогите плиз.Вот на что меня хватило:
type jitel=record
city:string[25];
street:string[25];
dom:integer;
kvartira:integer;
familia:string[25];
end;
var
spisok:array[1..25] of jitel;
i,n:integer;
procedure IRONIA_SUDBY(var s:jitel);
var i,j,k:integer;
b:boolean;
begin
for i:=1 to 15 do
for j:=i+1 to 15 do begin
if (s[i].dom=s[j].dom)and(s[i].kvartira=s[j].kvartira) then begin
b:=true;
for k:=1 to 20 do if s[i].street[k]<>s[j].street[k] then b:=false;
if not b then continue;
for k:=1 to 20 do if s[i].city[k]<>s[j].city[k] then b:=false;
if b then continue;
for k:=1 to 20 do write(s[i].familia[k]);
write(' ');
for k:=1 to 20 do write(s[j].familia[k]);
writeln;
exit;
end;
end;
end;
begin
write('write dannie');
readln(n);
for i:=1 to n do begin
writeln('write');
with spisok[i] do
begin
writeln('Familia');readln(familia);
writeln('Kvartira');readln(kvartira);
writeln('Dom');readln(dom);
writeln('Ylica');readln(street);
writeln('Gorod');readln(city);
end;
IRONIA_SUDBY(s);
end;