Переполнение - Free Pascal

program lab 6_2;
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.