СРОЧНО! Дана действительная квадратная матрица порядка 4 на 4.Вычислить сумму ниже

Var
  a: array[1..4,1..4]of integer;
  i, j,s: integer;

begin
  s := 0;
  for i := 1 to 4 do begin
    for j := 1 to 4 do begin
    write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  end;
  for  i:=2 to  4 do
   for  j:=1 to i-1 do s:=s+A[i,j];  
  writeln('Сумма частей под основной диаганалью',s);  
end.

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+jgt;5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (igt;J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.