Вывод матрицы на экран [Паскаль]

[mistertvister]

for
i:=1 to 5 do
for
j:=1 to 5 do  begin

writeln('vedite A[',i,j,']');
readln (a[i,j]);
end;

как зделать так что бы матрица выводилась на экран??
Замечание модератора: Используйте тег [CODE]

[NSvirus]

for i:=1 to 5 do begin
  for j:=1 to 5 do
     write(A[i,j],' ');
  writeln;
end;

[mistertvister]

var
i,j: integer;
a:array [1..5,1..5] of integer;
begin
writeln(' ведите матрицу');
for
i:=1 to 5 do
for
j:=1 to 5 do 
begin
write(' A[',i,j,']');
readln (a[i,j]);
end;
begin
write(a[i,j],'');
writeln;
end;
end.

хочу что бы выводилась красива матрица и выводится какая та ....
Замечание модератора: Используйте тег [CODE]

[mistertvister]

не получается сформировать матрицу

[sxerox]

намудрил с операторными скобками, смотри как писал NSvirus

[mistertvister]

мне нужно что бы был дружественный интерфейс!!

[mistertvister]

вот поэтому и мудрю

[sxerox]

i,j: integer;
a:array [1..5,1..5] of integer;
begin
writeln(' ведите матрицу');
for i:=1 to 5 do
    for j:=1 to 5 do 
       begin
              write(' A[',i,j,']');
              readln (a[i,j]);
             
       end;
for i:=1 to 5 do
 begin
    for j:=1 to 5 do 
      write (a[i,j]:4);
   writeln;
 end;
end.

вот

[mistertvister]

во спс большое
все понял и запомнил