вылазит арифметическое переполнение не знаю что делать

В массиве целых положительных и отрицательных чисел A[4,4], полученных случайным образом, вычислить сумму элементов второй строки и побочной диагонали. Если сумма элементов второй строки больше суммы элементов побочной диагонали, то выбрать из массива все четные числа, кратные 7, и записать их в одномерный массив, который затем рассортировать в порядке убывания. В противном случае подсчитать количество отрицательных чисел в массиве А и записать его на место четвертого элемента.
program ezik;
uses crt;
var
a: array[1..4, 1..4] of integer;
b: array[1..16] of integer;
i, j, min, S2, Sp, c, x, z : integer;
begin
clrscr;
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:= random(250)-125;
write(a[i,j]:5);
end;
writeln;
end;
S2:=0;
Sp:=0;
for j:=1 to 4 do
begin
S2:=S2+a[2,j];
end;
j:=5;
for i:=1 to 4 do
begin
j:=j-1;
Sp:=Sp+a[i,j];
end;
writeln('summa2=', S2);
writeln('summa pobochnoi diagonali=', Sp);
if S2>Sp
then
begin
for i:=1 to 4 do
for j:=1 to 4 do
if (a[i,j] mod 2=0) and (a[i,j] mod 7=0)
then
begin
x:=x+1;
b[x]:=a[i,j];
end;

for i:=1 to x do
begin
write(b:5);
end;
writeln;
for i:=2 to x do
begin
min:=b;
j:=1;
if min

if min

if min меньше b[j] then inc(j);
for c:=i-1 to j do
b[c+1]:=b[c];
b[j]:=min;
end;
writeln('novii massiv');
а где распечатка нового массива?
readln;
end
else
begin
for i:=1 to 4 do
for j:=1 to 4 do
if (a[i,j] меньше 0)
then
z:=z+1;
a[1,4]:=z;
writeln;
readln;
end;
writeln;
end.

вылазит где a[i,j]:= random(250)-125;
под буквой а