tolaywow

const
n=4;
var
i,j: integer;
a: array [1..n, 1..n] of real;
b,c: real;
label 1;
Begin
cls;
b:=0;
c:=-5;
1: for i:=1 to n do
for j:=1 to n do
a [i,j]:=random(5)-random(5);
for i:=1 to n do
for j:=1 to n do
begin
b:=b+a[i,j];
if (a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
if (bc) then goto 1
else
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[ i,j ]:2,' ');
writeln;
end;
writeln ('наибольший элемент = ',c);
writeln ('сумма всех элементов матрицы = ',b)
end;
write ('Нажмите Enter');
readln;
writeln('Выполнение программы завершено');
End.
при написании программа все время выдает 4 4 а должна выдавать максимальный элемент который должен быть равен сумме всех элементов