перевод из паскаля в делфи

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
type Matrix=array[1..8,1..8] of real;
     Vector=array[1..8] of real;
 
procedure iterac(n:integer;e:real;a:Matrix;b:Vector;x:Vector);
var i,j:integer;
    s,v,m:real;
    f:text;
begin
 
 
{ Proverka na sovmestnost'}
 for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
   if j <> i then s := s + abs(a[i,j]);
   if s >= abs(a[i,i]) then
   begin
    writeln('Uslovie ne vipolnjaetsja: diagonalnie elementi doljni bit max po modulu');
    exit;
   end;
 end;
 
{ Vi4isljaem novoe pribligenie i pogreshcnost}
 repeat
  m := 0;
  for i:=1 to n do
  begin
   s := 0;
   for j:=1 to n do
    if i <> j then
     s := s + a[i,j] * x[j];
     v := x[i];
     x[i] := (b[i] - s) / a[i,i];
     if abs(v - x[i]) > m then m := abs(v - x[i]);
  end;
 until m < e;
 
 writeln('Rezultat');
 for i:=1 to n do
  writeln('x[',i,']= ',x[i]:0:9);
 assign(f,'file.txt');
 Rewrite(f);
 writeln(f,'Rezultat');
 for i:=1 to n do
  writeln(f,'x',i,'= ',x[i]:0:9);
 Close(f);
 readln;
end;
 
Var
 n, i,j: Integer;
 a: Matrix;
 b, x: Vector;
 e:real;
 
Begin
 Writeln('Programma reshcenija sistem nelineinih uravnenii metodom Zeidelja');
 Writeln;
 
 Writeln('Vvedite porjadok matrici ot 2 do 8');
 readln(n);
 Writeln('Vvedite to4nost');
 Repeat
  Write('>');
  Read(e);
 Until (e > 0) and (e < 1);
 Writeln;
 
 Writeln ('Vvedite matricu koefficientov' );
 Writeln;
 for i:=1 to n do
  for j:=1 to n do
  begin
   Write('Vvedite a[',i,',',j,']: ');
   Readln(a[i, j]);
  end;
 Writeln;
 
 Writeln ('Vvedite matricu svobodnih 4lenov ');
 Writeln;
 For i := 1 to n do
 begin
  Write('Vvedite b[',i,']: ');
  Readln(b[i]);
 end;
 Writeln;
 iterac (n,e,a,b,x);
 readln;
end.