Ошибка передачи параметра динамического массива из основной программы в процедуру

program a0001;uses crt;
  var fam:array of string[10];
    tel:array of string[20];
    s:string;
    k,i,n:integer;
procedure check(var tel:array of string;s:string;k:integer);
  var i:integer;
 begin
  tel[k]:='';
  i:=1;
  while i<=length(s)do
   if s[i] in['0'..'9']then begin
     tel[k]:=tel[k]+s[i];
     inc(i);end
    else
     inc(i);
end;
begin clrscr;
//writeln('введите длину массивов');
n:=10;
setlength(fam,10);
setlength(tel,10);
 k:=0;//в динамич.массиве индексы начин. с 0
 repeat
  writeln('введите ',k,' фамилию');
  writeln('чтобы закончить ввод введите ''***''');
  readln(fam[k]);
  if fam[k]=''then
  repeat
   writeln('вы ввели пустую строку');
   writeln('введите снова fam');
   writeln('или завершите ввод набрав ''***''');
   readln(fam[k]);
  until(fam[k]<>'');
  if fam[k]<>'***'then begin
  n:=k;
  writeln('введите ',k,' номер телефона');
  readln(s);
  check(tel,s,k);{ЗДЕСЬ ОШИБКА}
  inc(k);
  end;
 until(k>50)or(fam[k]='***');
 for i:=0 to n do
  writeln(fam[i],' ',tel[i]);
 writeln('нажмите любую клавишу');
   readkey;
end.

type mas=array of string[20];
................................................
procedure check(var tel:mas;s:string;k:integer);

program a0001;uses crt;
type string20 = string[20];
var 
  fam:array of string[10];
  tel:array of string20;
  s:string;
  k,i,n:integer;
 
procedure check(var tel:array of string20;s:string;k:integer);
// ... дальше без изменений