[BoRoV]

Я вижу, что это у тебя не паскаль, а консольная делфи программа. Потому на тебе для делфи:

Код:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  size = 6;

var
  a: array[0..size - 1, 0..size - 1] of Extended;
  i, j, n: integer;
  m: Extended;
  mask_start, mask_mid, mask_end: string;

begin
  // Генерю матрицу для тестов
  Randomize;
  m := 0.0;
  for I := Low(a) to High(a) do
    for J := Low(a[i]) to High(a[i]) do
    begin
      a[i, j] := Random($FFFF);
      if a[i, j] > m then
        m := a[i, j];
    end;

  // Собственно весь вывод
  n := Length(FloatToStr(m));
  mask_start := Format('| %%0%d.0f', [n]);
  mask_mid := Format(' %%0%d.0f', [n]);
  mask_end := Format(' %%0%d.0f |', [n]);

  for i := Low(a) to High(a) do
  begin
    j := 0;
    Write(Format(mask_start, [a[i, j]]));
    inc(j);
    while j < high(a[i]) do
    begin
      Write(Format(mask_mid, [a[i, j]]));
      inc(j);
    end;
    Writeln(Format(mask_end, [a[i, j]]));
  end;
  Writeln('Ready');
  Readln;
end.