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

[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]

По хорошему, надо не лепить в каждой программе {$N+}, а настроить компилятор: Options->Compiler-> Отметить 8087/80287.

Это - ОЧЕНЬ спорное утверждение.. Ну, установил я у себя эту опцию, и что? Завтра пошел к другу, а у него не установлена - опять перенастраивать? А в университете вообще по мозгам могут дать за перенастройку компилятора. А вот с директивой (которая, кстати, имеет преимущество над настройками среды) все будет в порядке...

Сообщение отредактировано: volvo - 2.01.2008 13:23