Матрица в паскале

[IT-man]

свой код выложите полностью если не трудно

[val_nnm]

вместо

randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(100);
write('a[',i,',',j,']=',a[i,j]);
writeln;
end;

написать

randomize;
for i:=1 to n do Begin
  for j:=1 to n do Begin
    a[i,j]:=random(100);
    write(a[i,j]:4,' ');
  end;
  writeln;
end;

а ещё лучше, чтобы меньше было проблем с пониманием заполнять массив и выводить в разных циклах

randomize;
for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=random(100);

Writeln('Матрица A:')
for i:=1 to n do Begin
  for j:=1 to n do
    write(a[i,j]:4,' ');
  writeln;
end;
Writeln;