Сколько раз в данной задаче должен быть организован вывод?

[Катя21]

Дана действительная квадратная матрица порядка 10. В строках с от-рицательным элементом на главной диагонали найдите сумму всех элемен-тов.

Program pas;
var
*a:array [1..10,1..10] of integer;
*i1,i2:byte;
*s:integer;
begin
*randomize;
*for i1:= 1 to 10 do begin
* for i2:= 1 to 10 do begin
* *a[i1,i2]:= random(10)-5;
* end;
*end;
*for i1:= 1 to 10 do begin
* if a[i1,i1]<0 then begin
* *s:= 0;
* *for i2:= 1 to 10 do begin
* * s:= s+a[i1,i2];
* *end;
* *writeln('Stroka #', i1, ', [', i1, ',', i1, '] = ', a[i1,i1], ' Summa = ', s);
* end;
*end;
*writeln();
*for i1:= 1 to 10 do begin
* for i2 := 1 to 10 do begin
* *write(' ');
* *if a[i1,i2]>=0 then begin
* * write('+');
* *end;
* *write(a[i1,i2]);
* end;
*writeln();
*end;
*readln;
end.