найдите ошибку в задаче!!!!

[Ketrin29]

Даны натуральное число n и действительный квадратный массив размера nхn. Рассмотрим те элементы, которые расположены в строках, начинающихся с отрицательного элемента. Найти суммы тех из них, которые расположены соответственно ниже, выше и на главной диагонали.

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,s,p,k:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
a[i,j]:=StrToInt(InputBox('ввод массива','a[' +IntToStr(i)+',' +IntToStr(j)+']', '0'));
Memo1.Lines.Add('a='+IntToStr(a));
end;
s:=0;
for i:=2 to n do
begin
for j:=1 to n do
s:=s+a[i,j];
end;
Memo1.Lines.Add('s='+IntToStr(s));
p:=0;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
p:=p+a[i,j];
end;
Memo1.Lines.Add('p='+IntToStr(p));
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
if i=j then
k:=k+a[i,j];
end;
Memo1.Lines.Add('k='+IntToStr(k));
end;
end.

[Son Of Pain]

Ну вот первая
Memo1.Lines.Add('a='+IntToStr(a));

Подозреваю, что должно быть
Memo1.Lines.Add('a['+inttostr(i)+','+inttostr(j)+']='+IntToStr(a[i,j]));