напишите программу с двумерным массивом 10 класс. напишите пожалуйста программу с двумерным массивом (полную)

const maxi=9999;
var linMass: array[1..maxi] of integer;
deisMat: array[1..maxi,1..maxi] of integer;
i,j,n:integer;
begin
randomize;
write('Введите размер массива, n = '); readln(n);
writeln('Массив');
for i:=1 to n do
begin
linMass:=random(-n,n);
write(linMass:4);
end;
writeln;
writeln('Матрица: ');
for j:=1 to n do
begin
for i:=1 to n do
begin
deisMat[i,j]:=linMass;
write(deisMat[i,j]:4);
end;
writeln;
writeln;
end;

readln
end.