Способы ввода и вывода массива

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
      const n=3;
type
   arr=array[1..n, 1..n] of Integer;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas: arr;
  i, j, s, t:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Randomize;
        for i:=1 to n Do
        for j:=1 to n Do begin
        mas[i,j]:=Random(100);
        stringgrid1.Cells[i,j]:=IntToStr(mas[i,j]);
 
 
end;
 
        for j:=1 to n do
       ListBox1.Items.Add((IntToStr(mas[1,j])) +'  : '+(IntToStr(mas[2,j]))+'  : '+(IntToStr(mas[3,j])));
end;
end.

while i<10 do begin
   i:=i+1;
   j:=0;// всего навсего - по запарке не заметил
   while j<10 do begin

unit qq1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    lst1: TListBox;
    lst2: TListBox;
    lst3: TListBox;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure btn1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,i,ii,j,jj,jjj,max,n,m : Integer;
  stroka : array[1..10] of ShortString;
  min : array[1..10] of Integer;
  mass : array[1..10,1..10] of Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
 begin
  n:=10;
  m:=10;
  i:=0;
 Randomize;
 max :=0;
  while i<n do begin
   i:=i+1;
   j:=0;
   min[i]:=100;
   while j<m do
   begin
     j:=j+1;
     mass[i,j]:=1+random(100);
     stroka[i]:=stroka[i]+' '+IntToStr(mass[i,j]);
      if min[i] > mass[i,j] then
      begin
        min[i]:=mass[i,j];
        jj:=j;
 
      end;
   end;
 
   if min[i] > max then
   begin
   max:=min[i];
   ii:=i;
   jjj:=jj;
   end;
    lst1.Items.add(stroka[i]);
    lst2.Items.add(IntToStr(min[i]));
  end;
  lst3.Items.add(IntToStr(max));
  lst3.Items.add(IntToStr(ii)+' '+IntToStr(jjj));
 end;
end.

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;
    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.

const
  n=10;
  m=10;

for i:= N downto 1 do