Процедура / функция, которая заполняет три вектора разной длины

program lab_4;
uses crt;
type arr = array of integer;
const n = 11;
      m = 10;
      k = 14;
var a:array[1..n] of arr;
    b:array[1..m] of arr;
    c:array[1..k] of arr;
    i,p:integer;
    
procedure fill(var x:arr);
    var flag:integer;
    begin
        flag:=random(2);
        if flag = 1 then
            x[p]:=random(100)
        else
            x[p]:= -random (100);
    end;
begin   
    for i:= 1 to n do begin
        fill(a[i]);
    end;
end.

type mas=array of integer;
var a:mas;
    i,n:integer;
 
procedure fill(var a:mas; var n:integer);
var flag:integer;
begin
randomize;
flag:=random(2);
setlength(a,n);
for i:=1 to n do
if flag=1 then a[i]:=random(100)
else a[i]:=-random(100);
end;
 
begin
repeat
writeln('Введите размерность массива');
readln(n);
until n>0;
fill(a,n);
for i:=1 to n do write(a[i]:4);
writeln;
end.