Массивы.Надо найти ошибку

program lab7;
uses crt;
var a:array [1..5,1..5] of integer;i,j:integer;s:real;
begin
clrscr;randomize;
s:=0;
writeln('Matrix A');
for i:=1 to 5 do
    begin
            for j:=1 to 5 do
                begin
                        a[i,j]:=random(10);
                        a[i,j]:=a[i,j]-5;
                        write(a[i,j]:4);
                end;
            writeln;
    end;
writeln;
for i:=1 to 5 do 
if a[i,i]<0 then 
for j:=1 to 5 do s:=s+a[i,j];
writeln('Summa=',s:6:0);
readln;
end.

uses
  crt;
var
  a: array [1..5, 1..5] of integer;i, 
  j: integer; s: real;
begin
  clrscr;
  randomize;
  writeln('Matrix A');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := random(11)-5;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to 5 do 
  begin
    s:=0;
    if a[i, i] < 0 then 
    begin
      for j := 1 to 5 do       
        s := s + a[i, j]; 
      writeln('Summa elementov ',i,'-i stroki = ', s);
    end; 
  end;
  readln;
end.