Перевод из С++ в Паскаль

program parampampam;
 
uses
  crt;
const
  nmax = 255;
type
  Tmatr_od = array[0..nmax] of Double;
  Tmatr_dv = array[0..nmax, 0..nmax] of Double;
var
  i, j, n, f, k, iter : Byte;
  S, det : Double;
  a, b : Tmatr_dv;
  x0, R0, x : Tmatr_od;
function maxim(n : Byte; const mass : Tmatr_od):Byte;
var
  ii, index : Byte;
begin
  index := 0;
  for ii := 0 to n do
  begin
    if (mass[ii]>mass[index]) then
      index := ii;
  end;
  maxim := index;
end;
begin
  clrscr;
  Write('Введите размерность матрицы (матрица должна быть квадратной) = '); Readln(n); Dec(n);
  Write('Введите количество итераций = '); Readln(iter);
  Writeln('Введите расширенную матрицу');
  for i := 0 to n do
    begin
      x[i] := 0;
      for j := 0 to n do
      begin
        Write('b[', i+1, '][', j+1, ']: '); Readln(b[i, j]);
      end;
    end;
  for i := 0 to  n do
    for j := 0 to  n do
    begin
      a[i, j] := - b[i, j] / b[i, i];
      a[i, n] := b[i, n] / b[i, i];
    end;
  for i := 0 to  n do
    for j := 0 to  n do
      Writeln('a[', (i+1), '][', (j+1), '] = ', a[i, j]:3:2);
  Writeln; Writeln;
  Writeln('Введите значения начальных приближений');
  for i := 0 to n do
  begin
    Write('x0[', i+1, ']: '); Readln(x0[i]);
  end;
  S := 0;
  for i := 0 to  n do
    for j := 0 to  n do
      S := S + a[i,j]*x0[i];
  Writeln; Writeln;
  for i := 0 to n do
  begin
    R0[i] := a[i, n] - x0[i] + S;
    Writeln('R0[', i+1, ']: ', R0[i]:3:3);
  end;
  f := maxim(n, R0);
  det := R0[f];
  for k := 0 to iter-1 do
  begin
    for i := 0 to n do
      begin
        if (i <> f)
        then
          R0[i] := R0[i] + a[i,f]*det
        else
          R0[i] := R0[i] - det;
        Writeln('R0[', i+1, ']: ', R0[i]:3:3);
      end;
    x[f] := x[f] + det;
    f := maxim(n, R0);
    det := R0[f];
  end;
  Writeln; Writeln;
  for i := 0 to n do
    Writeln('x[', i+1, ']: ', R0[i]:3:3);
  Readln;
end.