Найти максимальный элемент матрицы

program Project1;
 
type
T = array[1..15,1..20] of integer;
 
procedure vvod(var O : T; var stb,str : Integer);
var
  i,j : Integer;
begin
Repeat
  Write('vvedite kolichestvo strok(1-20):');
  ReadLn(str);
Until str <= 20;
 
Repeat
  Write('vvedite kolichestvo stolbcov(1-15):');
  ReadLn(stb);
Until stb <= 15;
 
WriteLn('vvedite elementi matrici(celoe chislo):');
for i := 1 to str do
    for j:=1 to stb do
    begin
    Write('Mas[',j,',',i,']=');
    ReadLn(O[j,i]);
    end;
end;
 
function Im(I : LongInt) : String;
{переводит стр в инт}
var
  S : String;
begin
  Str(I, S);
  Im := S;
end;
 
 
procedure maxmin(var O : T; var stb,str : Integer);
Var
  F1 : Text;
  S: String;
  i,j,
  max,min,Mmax,Mmin : Integer; {max-макс, min-мин, Mmax-позиция макс, Mmin-позиция мин}
begin
   for j:=1 to str do
   begin
     max:=O[1,j]; {устанавливаем начальные значения в первый элемент столбца}
     min:=O[1,j];
     Mmax:=1; Mmin:=1; {аналогично с координатами}
     for i:=2 to stb do
     begin
       if max < O[i,j] then
          begin max:=O[i,j]; Mmax:=i; end;
       if min > O[i,j] then
          begin min:=O[i,j]; Mmin:=i; end;
     end;
     O[Mmin,j]:=max; {меняем местами по уст координатам}
     O[Mmax,j]:=min;
   end;
   {выводим в файл с именем one.txt}
   Assign(F1,'one.txt'); {связываем файловую переменную F с файлом One.txt}
   ReWrite(F1); {открываем новый пустой файл, и присваиваем ему имя one.txt, если такой уже есть он стирается}
   for  i:=1 to str do
    begin
    for j:=1 to stb do
      begin
      S:=Im(O[j,i]); {преоразуем инт в стр}
      Write(F1,S); {выводим в файл символьное представления инта}
      Write(F1,' '); {добавляем в строку пробел, для разделения цифр}
      end;
    WriteLn(F1); {переводим каретку в начало строки и на следующую строку}
    end;
   Close(F1); {закрываем открытый файл}
end;
 
var
  Mas : t;
  sr,sb,q,w : Integer;
 
begin
 
vvod(Mas,sb,sr);
maxmin(Mas,sb,sr);
 
WriteLn('Matrica Mas[',sb,',',sr,'] - '); {выводим на экран}
for  q:=1 to sr do
  begin
  for w:=1 to sb do Write(Mas[w,q],' ');
  WriteLn;
  end;
 
ReadLn; {пауза, так называемый - Пресс ани кей}
end.