[Janom]

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 I, j:word;//Определяем переменные целого типа индексирующие строку и столбец
 massiv:array[1..3,1..4] of word; {Определяем двумерный массив(матрицу) целых чисел }
 s:string; //Определяем строку для заполнения её цифрами и последующего вывода
 MaxCh,MinCh:integer;
 begin
 Memo1.Clear;//Очищаем Memo1
 MaxCh:=Low(MaxCh);
 MinCh:=High(MinCh);
 randomize;// Инициализируем генератор случайных чисел
 for i:=1 to 3 do //Делаем двойной цикл чтобы заполнить массив massiv[I,j]
  for j:=1 to 4 do
    begin
      massiv[I,j]:=random(101);// случайными числами от 0 до 100 функцией random
      if massiv[i,j]>MaxCh then MaxCh:=massiv[i,j];
      if massiv[i,j]<MinCh then MinCh:=massiv[i,j];
    end;
 for i:=1 to 3 do begin // Цикл по строкам с индексом i
 s:=''; // очищаем переменную s содержащую строку
 for j:=1 to 4 do // Цикл по столбцам с индексом j
 s:=s+' '+IntToStr(massiv[I,j]);//Формируем строку s из столбцов j
 Memo1.Lines.Add(s);//Выводим строку в Memo1
 end;
 Memo1.Lines.Add('Максимальное='+IntToStr(MaxCh));
 Memo1.Lines.Add('Минимальное='+IntToStr(MinCh));
end;