pascal(матрицы)

[s4egol]

помогите пожалуйста сделать форматированный вывод. что то не получается его сделать.
вот непосредственно мой код:

uses
    crt;
var
   matrix: array [1..9,1..10] of integer;
   i,j,k,p:integer;
begin
    randomize;
    write('Исходная матрица:');
    for i:= 1 to 9 do
    begin
       for j:= 1 to 10 do
       begin
          matrix[i,j]:=random(10);
          write(matrix[i,j],' ');
       end;
     writeln(' ');
    end;
    for j:= 1 to 10 do
     for i:= 1 to 9 do
       for k:= 1 to 9-i do
          if matrix[k,j] > matrix[k+1,j] then
          begin
             p:=matrix[k,j];
             matrix[k,j]:=matrix[k+1,j];
             matrix[k+1,j]:=p;
          end;
      for i:= 1 to 9 do
      begin
         for j:= 1 to 10 do
            write(matrix[i,j],' ');
      end;
    writeln(' ');
end.

у меня не получается вторая матрица(в виде матрицы).выводит как длинную строку цифр. И ещё я не знаю как одну матрицу отделить от второй пробелом. Помогите пожалуйста. вроде спрашиваю не такой уж и сложный вопрос.

[Stilet]

      for i:= 1 to 9 do      begin
         for j:= 1 to 10 do             write(matrix[i,j]:5);
         writeln;
      end;

Подходит?

[s4egol]

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

[Stilet]

writeln; несколько раз впиши после цикла