Матрица в delphi

[puporev]

Как то уж больно некрасиво написана программа, куча лишних процедур, все разбросано, вывод результата вообще непонятно где, короче не выдержал, переписал.

type Tmatr= array [1..50] of array [1..50] of real;
var
  Form1: TForm1;
  n:integer;
  matr:Tmatr;
implementation

{$R *.dfm}
//функция поиска макс. эл-та на гл. и поб. диагоналях
function findmax(var Matr: TMatr; var row, col: integer): real;
var i: integer; max: real;
begin
max := Matr[1,1]; row := 1; col := 1;
for i := 1 to n do
  begin
   //на главной диагонали
    if Matr[i, i] > max then
       begin
         max := Matr[i, i];
         row := i;
         col := i
        end;
   //на побочной диагонали
    if Matr[i, n-i+1] > max then
        begin
          max := Matr[i, n-i+1];
          row := i;
          col := n-i+1
         end;
  end;
findmax := max;
end;
//создание и вывод матрицы на экран
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
repeat
n:=strtoint(edit1.text);
if not odd(n) then   //n должно быть нечетным
   begin
     edit1.text:='';
     edit1.Setfocus;
     exit;
   end;
until odd(n);
StringGrid1.RowCount := n;
StringGrid1.ColCount := n;
for i:=1  to n do
for j:=1 to n do
Matr[i,j]:=random*40-20; //зачем объявлять real, и переделывать в integer?
for i:= 1 to n do
for j:=1 to n do
StringGrid1.Cells[j-1,i-1]:=FloatToStrF(matr[i,j],ffFixed,5,2);
end;
//обмен элементов и вывод результата на экран
procedure TForm1.Button2Click(Sender: TObject);
var  buf:real;
     i,j,row,col:integer;
begin
StringGrid2.RowCount := n;
StringGrid2.ColCount  := n;
buf := matr[n div 2 + 1, n div 2 + 1];
matr[n div 2 + 1, n div 2 + 1] := findmax(matr,row,col);
matr[row, col] := buf;
for i:= 1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=FloatToStrF(matr[i,j],ffFixed,5,2);
end;

end.

[Hegel]

Всем огромне спасибо!