Отладить программу

Program kursach;
type matr=array [1..20,1..20] of real;
     mas=array [1..20] of real;
var i,j,n:integer;
    F,E,v:real;
    A,C:matr;
    X,X0,R,b,z:mas;
BEGIN
  writeln('Введите размерность массива N');
readln(N);
  writeln('Введите точность вычислений E');
readln(E);
  writeln('Введите свободные члены ');
    for i:=1 to n do
      for j:=1 to n do
       readln(a[i,j]);
  writeln('Введите свободные члены ');
    for i:=1 to n do
     readln (b[i]);
  writeln('Введенная матрица : ');
    for i:=1 to n do begin
      for j:=1 to n do
      write(A[I,j]);
    write(B[i]);
    writeln;
    end;
  for i:=1 to n do begin
    for j:=1 to n do begin
     if i=j then c[i,j]:=0
     else c[i,j]:=-a[i,j]/a[i,i];
    end;
  R[i]:=b[i]/a[i,i];
  x0[i]:=R[i];
 
 
  end;
  for i:=1 to n do begin
  F:=0;
    for j:=1 to n do
    F:=F+c[i,j]*x0[j];
  x[i]:=F+R[i];
  end;
repeat
begin
  for i:=1 to n do begin
   x0[i]:=x[i];
   z[i]:=x0[i];
  end;
  for i:=1 to n do begin
  F:=0;
    for j:=1 to n do
    F:=F+c[i,j]*z[j];
  x[i]:=F+R[i];
  z[i]:=x[i];
 end;
V:=abs(x[i]-x0[i])
end;
until V<=e;
writeln('╧юыєў:');
  for i:=1 to n do
   writeln('x[',i,']=',x[i]:2:4);
writeln;
readln;
end.

    Uses CRT;
     
    Const
         maxn = 10;
     
    Type
        Data = Real;
        Matrix = Array[1..maxn, 1..maxn] of Data;
        Vector = Array[1..maxn] of Data;
     
    { Процедура ввода расширенной матрицы системы }
    Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector);
    Var
       i, j, r: Integer;
    Begin
         r := WhereY;
         GotoXY(2, r);
         Write('A');
         For i := 1 to n do begin
             GotoXY(i * 6 + 2, r);
             Write(i);
             GotoXY(1, r + i + 1);
             Write(i:2);
         end;
         GotoXY((n + 1) * 6 + 2, r);
         Write('b');
         For i := 1 to n do begin
             For j := 1 to n do begin
                 GotoXY(j * 6 + 2, r + i + 1);
                 Read(a[i, j]);
             end;
             GotoXY((n + 1) * 6 + 2, r + i + 1);
             Read(b[i]);
         end;
    End;
     
    { Процедура вывода результатов }
    Procedure WriteX(n :Integer; x: Vector);
    Var
       i: Integer;
    Begin
         For i := 1 to n do
             Writeln('x', i, ' = ', x[i]);
    End;
     
    { Функция, реализующая метод Зейделя }
    Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
    Var
       i, j: Integer;
       s1, s2, s, v, m: Data;
    Begin
     
         { Исследуем сходимость }
         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
                Seidel := false;
                Exit;
             end;
     
         end;
     
         Repeat
     
             m := 0;
             For i := 1 to n do begin
     
                 { Вычисляем суммы }
                 s1 := 0;
                 s2 := 0;
                 For j := 1 to i - 1 do
                     s1 := s1 + a[i, j] * x[j];
                 For j := i to n do
                     s2 := s2 + a[i, j] * x[j];
     
                 { Вычисляем новое приближение и погрешность }
                 v := x[i];
                 x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
     
                 If Abs(v - x[i]) > m then
                    m := Abs(v - x[i]);
     
             end;
     
         Until m < e;
     
         Seidel := true;
    End;
     
    Var
        n, i: Integer;
        a: Matrix;
        b, x: Vector;
        e: Data;
    Begin
          ClrScr;
          Writeln('Программа решения систем линейных уравнений по методу Зейделя');
          Writeln;
     
          Writeln('Введите порядок матрицы системы (макс. 10)');
          Repeat
                 Write('>');
                 Read(n);
          Until (n > 0) and (n <= maxn);
          Writeln;
     
          Writeln('Введите точность вычислений');
          Repeat
                 Write('>');
                 Read(e);
          Until (e > 0) and (e < 1);
          Writeln;
     
          Writeln('Введите расширенную матрицу системы');
          ReadSystem(n, a, b);
          Writeln;
     
          { Предполагаем начальное приближение равным нулю }
          For i := 1 to n do
              x[i] := 0;
     
          If Seidel(n, a, b, x, e) then begin
             Writeln('Результат вычислений по методу Зейделя');
             WriteX(n, x);
          end
          else
              Writeln('Метод Зейделя не сходится для данной системы');
          Writeln;
    End.

Uses CRT;
Const maxn = 10;
Type Data = Real; Matrix = Array[1..maxn,
1..maxn] of Data; Vector =
Array[1..maxn] of Data;
Procedure ReadSystem(n: Integer; var a: Matrix; var b:Vector);
Var i, j, r:
Integer;
Begin r := WhereY; GotoXY(2, r); Write('A'); For i := 1 to
n do begin GotoXY(i* 6 + 2, r); Write(i); GotoXY(1,r + i + 1);
Write(i:2); end; GotoXY((n +1) * 6 + 2, r); Write('b'); For i := 1 to
n do begin For j :=1 to n do begin
GotoXY(j * 6 + 2, r + i + 1);
Read(a[i, j]); end; GotoXY((n+ 1) * 6 + 2, r + i + 1);
Read(b[i]); 
end;
End;
Procedure WriteX(n :Integer; x: Vector);
Var i: Integer;
Begin For i := 1 to
n do
Writeln('x', i, ' = ', x[i]);
End;
Function Seidel(n: Integer; a: Matrix; b: Vector; var x:Vector; e: Data) :Boolean;
Var i, j: Integer; s1, s2, s, v,
m: Data;
Begin 
 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 Seidel
:= false; Exit; end; end; Repeat m := 0; For i :=
1 to n do begin 
 s1 :=0; s2 :=0; For j:= 1 to i - 1 do
s1 := s1 + a[i, j] * x[j]; For j:= i to n do
s2 := s2 + a[i, j] * x[j]; 
 v :=x[i]; x[i] := x[i] - (1 / a[i, i]) * (s1 + s2- b[i]); If
Abs(v - x[i]) > m then m:= Abs(v - x[i]); end; Until m <
e; Seidel :=true;
End;
Var n, i: Integer; a: Matrix; b, x: Vector; e: Data;
Begin ClrScr;
Writeln('Программа решения систем линейных уравнений по методу Зейделя');
Writeln;
Writeln('Vvedite poriadok matrisi sistemi (max. 10)'); Repeat
Write('>');
Read(n); Until (n
> 0) and (n <= maxn); Writeln;
Writeln('Vvedite tochnost vichislenii'); Repeat
Write('>');
Read(e); Until (e> 0) and (e < 1); Writeln;
Writeln('Vvedite rasshirennuu matrisu sistemi');
ReadSystem(n, a, b); Writeln; 
For i := 1
to n do x[i] :=0; If Seidel(n,
a, b, x, e) then begin
Writeln('Resultat vichislenia po Zeidelu'); WriteX(n,x); end else
Writeln('Metod zeideli ne sxoditsi dle sistemi'); Writeln;
End.