подпрограммы в Делфи

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
// вычисляем сумму массива
function ArraySum(A: Array of Integer): Integer;
var i: Integer;
begin
  Result := 0;
  for i := 0 to Length(A) - 1 do
    Result := Result + A[i];
end;
// случайно заполняем массив
procedure RandomArray(var A: Array of Integer; Interval: Integer);
var i: Integer;
begin
  Randomize;
  for i := 0 to Length(A) - 1 do
    A[i] := Random(Interval);
end;
// склеиваем 2 массива в третий
procedure ArrayConnect(var A: Array of Integer; B, C: Array of Integer);
var i: Integer;
begin
  for i := 0 to Length(B) - 1 do
    A[i] := B[i];
 
  for i := 0 to Length(C) - 1 do
    A[i + Length(B)] := C[i];
end;
// распечатываем массив
procedure WriteArray(A: Array of Integer);
var i: Integer;
begin
  for i := 0 to Length(A) - 1 do
    Write(A[i], ' ');
  Writeln;
end;
 
var A, B, C: Array of Integer;
begin
  SetLength(A, 10);     // устанавливаем длину А
  RandomArray(A, 100);  // заполняем А
  SetLength(B, 5);      // тоже самое для В
  RandomArray(B, 200);
  SetLength(C, Length(A) + Length(B)); // устанавливаем длину С
  ArrayConnect(C, A, B);               // копируем в С из А и В
 
  // выводим значения массивов
 
  Write('A = ');
  WriteArray(A);
  Write('B = ');
  WriteArray(B);
  Write('C = ');
  WriteArray(C);
 
  Writeln;
 
  // выводим суммы массивов
 
  Writeln('Summa elementov A = ', ArraySum(A));
  Writeln('Summa elementov B = ', ArraySum(B));
  Writeln('Summa elementov C = ', ArraySum(C));
 
  Readln;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, Math;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   i, j: integer;
   const n=5; m=5;
   type mas=array[1..n, 1..m] of real;
   var MassA,MassB:mas;
 
 
 
 
 
implementation
 
{$R *.dfm}
function RandomArray( MassA:array of real):real;
 
begin
  Randomize;
  for i := 1 to n do
  for j := 1 to m do
  begin
  MassA[i,j] := RandomRange(-10,10);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,m:integer;
begin
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=n+1;
begin
for i:=1 to n do
for j:=1 to m do
StringGrid1.Cells[j,i]:=IntToStr(MassA[i,j]);
end;
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var Sum:array[1..m] of integer; s,k:integer;
begin
MassB[i,j]:=MassA[i,j];
StringGrid2.RowCount:=n+1;
StringGrid2.ColCount:=n+1;
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
s:=s+MassB[i, j];
s:=Sum[j];
if sum[i] < sum[i+1] then
begin
s:=Sum[i]; Sum[i]:=Sum[i+1]; Sum[i+1]:=s;
end
end;
for k:=1 to m do
begin
s:=MassB[i,k]; MassB[i,k]:=MassB[i+1,k]; MassB[i+1,k]:=s;
end;
 StringGrid2.Cells[i,j]:=IntToStr(MassB[i,j]);
end;
 
end.