Найти сумму элементов квадратной матрицы порядка n

[Робин Гуд]

Найти сумму элементов квадратной матрицы порядка N(N<=6, задаётся в TEdit) есть отрицательные элементы , найти наибольший из них .

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var p:array[1..6,1..6] of integer;
    i,j,n,s,max:integer;
begin
   n:=StrToInt(Edit1.Text);
   If n<1 then
      n:=1;
   If n>6 then
      n:=6;
   Randomize;
   For i:=1 to n do
      For j:=1 to n do
         p[i,j]:=-10+Random(21);
   s:=0;
   max:=p[1,1];
   For i:=1 to n do
      For j:=1 to n do
      begin
         s:=s+p[i,j];
         If max>p[i,j] then
            max:=p[i,j];
      end;
   Label1.Caption:=IntToStr(s);
   Label2.Caption:=IntToStr(max);
end;

Сойдет?