Найти сумму элементов матрицы, лежащих ниже главной диагонали

Program PP1;
const n=4;
type
  matrix= array [1..4, 1..4] of integer;
var
   a:matrix;
   S,max:real;
   im,jm,i,j:integer;
   k:byte;
   begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
  end;
max:=a[1,1];
im:=1;
jm:=1;
S:=0;
 
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (a[i,j]>max) then
max:=a[i,j];
if (i<j) then
k:=1
else
k:=0
end;
end;
if (k=1) then
begin
write('наибольший элемент находится выше главной диагонали');
 
for i:=1 to 4 do
begin
   for j:=1 to 4 do 
   begin
   if (i>j) then
    S:=S+a[i,j]; 
   end;
   end;
   write (s);
   
write('элемент ниже главной диагонали')
end;
end.

const n=4;
type
  matrix= array [1..4, 1..4] of integer;
var
   a:matrix;
   S,max:real;
   im,jm,i,j:integer;
   k:byte;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
  end;
max:=a[1,1];
im:=1;
jm:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then
 begin
  max:=a[i,j];
  im:=i;
  jm:=j;
 end;
writeln('Максимальнвй элемент a[',im,',',jm,']=',max);
if jm>im then
 begin
  writeln('наибольший элемент находится выше главной диагонали');
  s:=0;
  for i:=2 to n do
  for j:=1 to i-1 do
  s:=s+a[i,j];
  write ('Сумма ниже главной диагонали=',s);
 end
else write('Максимальный элемент не выше главной диагонали')
end.