Определить максимальный и минимальный элемент 2-ух заданных матриц - Delphi - Ответ 9052048

var
i,j,n,m,max,min:Byte;
x,y:array[Byte,Byte] of Byte;
begin
try
    n := StrToInt(Edit1.Text);
    m := StrToInt(Edit2.Text);
    except
    exit;
    end;
ListBox1.Clear;
StringGrid1.RowCount := n;
StringGrid1.ColCount := m;
StringGrid2.RowCount := n;
StringGrid2.ColCount := m;
randomize;
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    x[i,j] := random(256);
    y[i,j] := random(128)+ random(64);
    StringGrid1.Cells[j,i] := IntToStr(x[i,j]);
    StringGrid2.Cells[j,i] := IntToStr(y[i,j]);
    end;
max := x[0,0];
min := x[0,0];
 
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    if x[i,j] > max then max := x[i,j];
    if x[i,j] < min then min := x[i,j];
    if y[i,j] > max then max := y[i,j];
    if y[i,j] < min then min := y[i,j];
    end;
ListBox1.Items.Add('MAX = ' + IntToStr(max));
ListBox1.Items.Add('MIN = ' + IntToStr(min));