найти ошибку

[trung]

здравствуйте

program ideone;
uses crt;
const n = 4;
  eps = 0.01;
  alpha: array[1..n, 1..n] of real = (
    (183, 81, 73, 19),
    (59, 212, 63, 77),
    (67, 97, 233, 59),
    (84, 47, 78, 315));
  beta: array[1..n] of real = (62, -8.9, 96, -38);
var a: array[1..n, 1..n] of real;
  b: array[1..n] of real;
  x: array[1..n] of real;
  y: array[1..n] of real;
  sum, del, del1: real;
  i, j: integer;
begin
  clrscr;
  writeln('Nachalnie dannie:');
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := alpha[i, j];
      if j <> 4 then write(a[i, j]: 4: 1, ' ')
      else write(a[i, j]: 4: 1);
    end;
    b[i] := beta[i];
    if i <> 4 then writeln('     ', b[i]: 4: 1)
    else writeln('    ', b[i]: 4: 1);
  end;
  for i := 1 to n do begin
    y[i] := 0;
  end;
  repeat
    for i := 1 to n do begin
      x[i] := y[i];
    end;
    for i := 1 to n do begin
      sum := 0;
      for j := 1 to n do begin
        sum := sum + a[i, j] * x[j];
      end;
      y[i] := b[i] - sum;
    end;
    del := 0;
    for i := 1 to n do begin
      del1 := abs(x[i] - y[i]);
      if del1 > del then
        del := del1;
    end;
  until del < eps;
  for i := 1 to n do begin
    writeln(y[i]: 7: 4);
  end;
  readln;
end.

выдает ошибку exitcode=205
помогите пожалуйста




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Aleksandr H.]

Циклится в repeat'e и переполняется sum:=sum+a[i,j]*x[j];