Массивы (лаба) / Unit2

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Grids, Vcl.StdCtrls,
  Vcl.Buttons;

type
  TForm2 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;
    SGItog: TStringGrid;
    SGIshod: TStringGrid;
    LSort: TLabel;
    ESort: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
var
temp, I, J, K : integer;
MIs, MIt, Msh : array [1..5,1..5] of integer;
Mass : array [1..25] of integer;
begin
randomize;
  for I := 1 to 5 do
    begin
    SGIshod.Cells[0,I] := IntToStr(I);
	  SGIshod.Cells[I,0] := IntToStr(I);
    SGItog.Cells[0,I] := IntToStr(I);
    SGItog.Cells[I,0] := IntToStr(I);
    end;
 For I := 1 to 5 do
	For J := 1 to 5 do
		begin
			MSh[I,J] := 0;
			MIt[I,J] := 0;
		end;

  For J := 1 to 5 do
		For I := 1 to J-1 do
			MSh[I,J] := 1;

  For I := 1 to 5 do
		For J := 1 to 5 do
		  begin
				MIs[I,J] := Random(9)+1;
				SGIshod.Cells[I,J] := IntToStr(MIs[I,J]);
			end;

  For I := 1 to 5 do
		For J := 1 to 5 do
	  	begin
				If MSh[I,J] = 1 then MIt[I,J] := MIs[I,J];
				SGItog.Cells[I,J] := IntToStr(MIt[I,J]);
		  end;
  k := 0;
  For I := 1 to 5 do
	  For J := 1 to 5 do
	    begin
		    Inc(k);
		    Mass[k] := MIs[J,I];
	    end;


  LSort.Caption := '';
For I:=1 to 25 do LSort.Caption := LSort.Caption+IntToStr(Mass[I])+ '';
  for I := 1 to 25 do
 begin
  j:=i;
  temp:=Mass[i];
  while ((j>1)and (Mass[j-1]>temp)) do
    begin
    Mass[j] := Mass[j-1];
    dec(j);
    end;
  Mass[j]:=temp;
 end;

 k:=0;
 ESort.Caption:='';

   for I := 1 to 25 do
     ESort.Caption := ESort.Caption+IntToStr(Mass[I])+ ' ';
end;
end.