млин деж ты учишся что матрицу сформировать не можешь?
a:array[1..n,1..n];
randomize;
for i:=1 to n begin
for j:=1 to n begin
a[i,j]:=random(10);
end;
end;