Работа с записями

var a:array[1..10] of integer;
    i,j,m,p,n:integer;
begin
     writeln('Vvedite elementy massiva');
     for i:=1 to 10 do readln( a[i] );
     m:=1; p:=1;
     for i:=1 to 10 do begin
       n:=0;
       for j:=1 to 10 do begin
          if a[i]=a[j] then inc(n);
       end;
       if n>m then begin
          m:=n; p:=i;
       end;
     end;
     writeln('Element',a[p]);
end.

uses Crt;
type
ZhList=record
num:integer;
name,zan:string end;
var
a:array [1..100] of ZhList;
n,i,j:integer;
 
Procedure poiskkv;
var
m,c:integer;
begin
m:=1; c:=1;
for i:=1 to n do begin
t:=0;
for j:=1 to n do
begin
if a[i].num=a[j].num then inc(n);  end;
if n>m  then begin
m:=n; c:=i;
end;
end;
writeln('Kvartira s naibolshim kolichestvom zhilcov: ', a[c].num);
end;
 
begin
clrscr;
Writeln('Vvedite chislo zhilcov');
readln(n);
Writeln('Vvedite spisok zhilcov');
for i:=1 to n do
begin
with a[i] do
begin
writeln('Zhilec #',i);
writeln('Imya i familiya');
readln(name);
writeln('Nomer kvartiry');
readln(num);
writeln('Rod zanyatiy. student/rabochiy/pensioner');
readln(zan);
end;
end;
poiskkv;
Readln;
end.

program lab_11_2;
uses crt;
 type
  kvart=record
  fam: string;
  name: string;
  rod: string;
  rabota: string;
  pensia:integer;
  kvar:integer;
end;
var 
    k:array [1..3] of kvart;
    n:string;
a:array[1..10] of integer;
b:array[1..10]of integer;
    x:integer;
    y:integer;
    i,j:integer;
begin
 clrscr;
 for i:=1 to 3 do
 begin
 
 write('fam: ');
 readln(k[i].fam);
 write('name: ');
 readln(k[i].name);
 write('rod zan: ');
 readln(k[i].rod);
 write('rabota`: ');
 readln(k[i].rabota);
write('pensia: ');
 readln(k[i].pensia);
write('kvartira: ');
 readln(k[i].kvar);
end;
for i:=1 to 3 do
a[i]:=k[i].kvar;
 
  for i:=1 to 3 do begin
    x:= 0;
    for j:=1 to i-1 do
      if (a[i]=a[j]) then x:=x+1;
    y:= 0;
    for j:= i+1 to 3 do
      if (a[i]=a[j]) then y:=y+1;
    if (x=0) then
 
    write('v  ',a[i],' Kvartire ',y+1,' zitelei ');
      end;
 
      readln;
 
end.