Найти в каждой строке матрицы элемент с наименьшим значением - Delphi - Ответ 632575

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
        const n=3; m=3;  w=3;
type              arr=array[1..n,1..m] Of integer;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas: arr;
    i, j, i1, j1, i2, j2, i3, j3: Integer;
    s, t, s1, t1, s2, t2:Integer;
  min, min1, min2, max: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=1; t:=1;
Randomize;
              min:=high(Random(100));
              min1:=high(Random(100));
              min2:=high(Random(100));
 
                                    max:=low(Random(100));
for i:=1 to n do
 for j:=1 to m do  begin
     mas[i,j]:=Random(10);
      stringgrid1.Cells[i,j]:=IntToStr(mas[i,j]);end;
 
                     begin
                     for i1:=1 to n do
                             if min>=mas[i1,1] then begin  min:=mas[i1,1];
                             s:=i1; t:=1; edit1.Text:=((IntToStr(t))+':'+(IntToStr(s))); end;end;
 
                          begin
                         for i2:=1 to m do
                             if min1>=mas[i2,2] then begin  min1:=mas[i2,2];
                             s1:=i2; t1:=2; edit2.Text:=((IntToStr(t1))+':'+(IntToStr(s1)));end; end;
 
                              begin
                         for i3:=1 to w do
                             if min2>=mas[i3,3] then begin  min2:=mas[i3,3];
                             s2:=i3; t2:=3; edit3.Text:=((IntToStr(t2))+':'+(IntToStr(s2)));end; end;
 
 
 
                                    if (min>min1) and (min>min2) then  begin
                                        edit4.Text:=((IntToStr(t))+':'+(IntToStr(s)));  end;
                                    if (min1>min) and (min1>min2) then  begin
                                            edit4.Text:=((IntToStr(t1))+':'+(IntToStr(s1)));  end;
                                     if (min2>min) and (min2>min1) then  begin
                                            edit4.Text:=((IntToStr(t2))+':'+(IntToStr(s2)));  end;
 
end;
end.