Исправить ошибки, Исправить переведенную программу Опции

[Accer]

Я просил помочь перевести программу на паскаль( Перевести программу на Pascal )
Мне помогли, но программа не компилируется. Пожалуйста помогите это исправить!

const
  n = 3;
  A: array[0 .. pred(n), 0 .. pred(n)] of double = (
    (10, 1, 1), (2, 10, 1), (2, 2, 10)
  );
  B: array[0 .. pred(n)] of double = (
    12, 13, 14
  );

var
  X: array[0 .. pred(n)] of double;
  i, j, k: integer;
  multiplier: double;

begin
  writeln('Linear system of equations:');
  writeln;

  for i := 0 to pred(n) do begin
    for j := 0 to pred(n-1) do
      write('(', A[i][j]:0:2, ') * x', j, ' + ');
    writeln('(', A[i][n-1]:0:2, ') * x', pred(n), ' = ', B[i]:0:2);
  end;

  for i := 0 to pred(n-1) do begin
    for j := i+1 to pred(n) do begin
      multiplier := A[j][i] / A[i][i];
      for k := 0 to pred(n) do
        A[j][k] := A[j][k] - A[i][k] * multiplier;
      B[j] := B[j] - B[i] * multiplier;
    end;
  end;

  for i := n-1 downto 0 do begin
    X[i] := B[i];
    for j := n-1 downto succ(i) do
      X[i] := X[i] - A[i][j] * X[j];
    X[i] := X[i] / A[i][i];
  end;

  writeln;
  writeln('Result vector X:');
  for i := 0 to pred(n) do begin
    writeln('X[', i, '] = ', X[i]:0:2);
  end;
end.

[volvo]

Да что ты? Хочешь скриншот? Она не только компилируется, но и результат выдает:

Linear system of equations:

(10.00) * x0 + (1.00) * x1 + (1.00) * x2 = 12.00
(2.00) * x0 + (10.00) * x1 + (1.00) * x2 = 13.00
(2.00) * x0 + (2.00) * x1 + (10.00) * x2 = 14.00

Result vector X:
X[0] = 1.00
X[1] = 1.00
X[2] = 1.00

(еще одно вот такое высказывание - буду минусовать без предупреждения!!!)