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

[Кот12]

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

[Stilet]

С потолка:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }

   TForm1 = class(TForm)
						Button1: TButton;
						Edit1: TEdit;
						procedure Button1Click(Sender: TObject);
      procedure Edit1Change(Sender: TObject);
			procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var   n:integer; a:array of array of integer;
			Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1Change(Sender: TObject);
var i,j:integer;
begin
  if TryStrToInt(Edit1.Text,n) then begin
    SetLength(a,n,n);
    for i:=Low(a) to High(a) do for j:=Low(a[i]) to High(a[i]) do
     a[i,j]:=i*n+j;
	end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
      SetLength(a,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,m:integer;
begin
  m:=a[low(a),Low(a)];
    for i:=Low(a) to High(a) do for j:=Low(a[i]) to High(a[i]) do begin
     s:=s+a[i,j]; if m<a[i,j] then m:=a[i,j];
		end;
  ShowMessage(Format('Сумма:%d Максимум:%d',[s,m]));
end;

end.

[Кот12]

Спасибо большое