Осуществлять поиск максимального значения в каждой строке матрицы

const
  max = 100;
var
  n,m, i,j : byte;
  a : array[1..max,1..max] of byte;
  f : text;
 
  function MaxWStroke(nStr :  byte) : byte;
  var j,max : byte;
  begin
    max:=0;
    for j:=1 to m do if a[nStr,j]>max then max:=a[nStr,j];
    MaxWStroke:=max;
  end;
 
  function MinWStolbce(nStlb : byte) : byte;
  var i,min : byte;
  begin
    min:=10;
    for i:=1 to n do if a[i,nStlb]<min then min:=a[i,nStlb];
    MinWStolbce:=min;
  end;
 
begin
  write('Input Razmernostx [n,m] : '); readln(n,m);
  assign(f,'Out.txt'); rewrite(f);
  writeln(f,Chr(n+48),' ',Chr(m+48));
  writeln('massive : '); randomize;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(10);
      write(a[i,j]:4);
      write(f,chr(a[i,j]+48),' ');
    end;
    writeln; writeln(f);
  end;
  close(f);
  writeln('Was file OUT.TXT sozdan.');
  writeln('Max po strokam:');
  for i:=1 to n do writeln('max w ',i,' str = ',MaxWStroke(i));
  writeln('Min po stolbcam:');
  for j:=1 to m do writeln('max w ',j,' stlbce = ',MinWStolbce(j));
  readln;
End.