Сортировка массива, проблема.

[Inquisitor]

Написал программу на вывод массива чисел, немогу никак понять две вещи: Как сделать вывод массива целиком а не по строкам? Просмотрите пожалуйста прогу.

uses crt;
const n=5;
var
    a:array[0..n,0..n] of byte;
    i,j:byte;
  begin
       ClrScr;
       for i:=1 to n do
       for j:=1 to n do
       a[i,j]:=random(100);
       for i:=1 to n do
    begin
       for j:=1 to n do
       write(a[i,j]:5);
       readln;
    end;
  end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MoBLer]

Readln надо написать перед последним end

[Inquisitor]

Тогда весь массив выписывает в одну линию

[rus12]

Попробуй так:

const n=5;
var
a:array[0..n,0..n] of byte;
i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln(' ');
end;
readln;
end.

[Inquisitor]

Оу, спасибо!