Ошибка при передаче массива записей

type
pl=record
Fam, City, Ul, Dom, Kv:string;
end;
 
var
mas: array of pl;
Rec:pl;
Kol_ld, i:integer;
ch, ch2:char;
 
{заполнение отдельной записи}
procedure Zap(var a: pl);
begin
  Writeln('Vvedite Familiiu:');
  Readln(a.fam);
  Writeln('Vvedite Gorod:');
  Readln(a.city);
  Writeln('Vvedite Ulicu:');
  Readln(a.ul);
  Writeln('Vvedite Dom:');
  Readln(a.dom);
  Writeln('Vvedite Kvartiru:');
  Readln(a.kv);
end;
 
{добавление нового элемента в динамический массив}
procedure novyi_el(o: integer; var c: pl; mas_n: array of pl);
begin
  Writeln('Novyi chelovek');
  Zap(c);
  mas_n[o] := c;
end;
 
{вывод записи}
procedure vyvod (b: pl; ind:integer);
begin
 Writeln(b.fam,' ', b.city,' ', b.ul,' ',b.dom,' ', b.kv);
 Readln;
end;
 
{вывод массива записей}
procedure vyvod_mas (mas_b:array of pl; nom:integer);
var
j:integer; rec_b:pl;
begin
 for j:=0 to nom-1 do
 with mas_b[j] do
   begin
     rec_b:=mas[j];
     vyvod(rec_b,nom);
   end;
 readln;
end;
 
{сортировка массива}
procedure sort (kol: integer; var zap_a: array of pl);
var
l, j:integer;
t:pl;
begin
for l:= kol-1 downto 1 do
 for j:=0 to l-1 do
  begin
   if zap_a[j].city>zap_a[j+1].city then  
     begin
      t:=zap_a[j+1];
      zap_a[j+1]:= zap_a[j];
      zap_a[j]:= t;
   end;
    end;
 
end;
 
{поиск двух жителей в разных городах, но одинаковым адресом}
procedure Poisk(kl:integer; var zap_p: array of pl);
var
j, h:integer;
begin
 
for j:=0 to kl-1 do  
  for h:=1 to kl-1 do
    if zap_p[j].city<>zap_p[h].city then 
    begin
      if (zap_p[j].ul=zap_p[h].ul) and (zap_p[j].dom=zap_p[h].dom) then  
      begin
      vyvod(zap_p[j],j);  
      vyvod(zap_p[h],h);
      break;
      end;
    end;
 
end;
 
 
 
begin
Writeln('1 - Sozdanie spiska');
Writeln('2 - Vyxod iz programmy');
readln(ch);
Case ch of
'1':
   begin
     Writeln('Vvedite kol-vo ludei:');
     Readln(Kol_ld);
     SetLength(mas, kol_ld);
 
     For i:=0 to kol_ld-1 do novyi_el(i, rec, mas);
        
     Writeln('3 - Sortirovka zapisei po gorodu');
     Writeln('4 - Vyvod zapisei s raznymi gorodami, no odinakovym adresom');
     Writeln('5 - Vyvod vsex zapisei');
     Writeln('6 - Vyxod iz programmy');
     readln(ch2);
     Case ch2 of
    '3':
        begin
          sort (kol_ld, mas);
          vyvod_mas (mas, kol_ld);
        end;
    '4':
       Poisk(kol_ld,mas);
    '5':
        vyvod_mas (mas, kol_ld);
    '6':
        exit;
    end;
end;
 
'2':
exit;
end;
 
end.

type arr = array[1..100] of pl;