Найти в каждой строке минимальный элемент и вычесть его из всех элементов данной строки

uses crt;
var
n,m:integer; mas:array [1..100, 1..100] of integer;
minstr, minstolb:array [1..100] of integer; i, j: integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite m');
readln(m);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
 
writeln('Matrica nachalnya');
for i:=1 to n do     begin
for j:=1 to m do
write(mas[i,j], ' ');
writeln;
end;
 
 
for i:= 1 to n do   begin
minstr[i]:=mas[i,1];
for j:=1 to m do
if mas[i,j]<minstr[i] then minstr[i]:=mas[i,j];
end;
 
writeln('Vector min elementov stroki');
  for i:=1 to n do write(minstr[i], ' ');
 
  
for i:= 1 to n do
for j:=1 to m do
mas[i,j]:=mas[i,j]-minstr[i];
 
       writeln('resultat mas-minstr');
 for i:=1 to n do  begin
 for j:=1 to m do
 write(mas[i,j], ' ');
 writeln;
 end;
 
  
for i:=1 to m do    begin
minstolb[i]:=mas[1,i];
 
for j:=1 to n do
if mas[j,i]<minstolb[i] then minstolb[i]:=mas[j,i];
end;
 writeln('Vector min elementov stolbca')  ;
for i:=1 to m do writeln(minstolb[i]);
 
for i:=1 to m   do
for j:= 1 to n do
mas[j,i]:=mas[j,i]-minstolb[i];
 
writeln('Resultat mas-minstolb');
for i:= 1 to n do   begin
for j:= 1 to m do
write(mas[i,j], ' ');
writeln;
end;
 
end.

const n=5;m=4;
type mas=array[1..n,1..m] of integer;
var a:mas;
    i,j,min:integer;
procedure v(var x:mas;f:boolean);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if f then x[i,j]:=random(11);
     write(x[i,j]:3)
    end;
   writeln
  end;
 writeln 
end;
 
begin
 randomize;
 v(a,true);
 for i:=1 to n do
  begin
   min:=a[i,1];
   for j:=1 to m do if a[i,j]<min then min:=a[i,j];
   for j:=1 to m do a[i,j]:=a[i,j]-min;
  end;
 writeln('stroki-min'); 
 v(a,false);
 for j:=1 to m do
  begin
   min:=a[1,j];
   for i:=1 to n do if a[i,j]<min then min:=a[i,j];
   for i:=1 to n do a[i,j]:=a[i,j]-min;
  end;
 writeln('stolbci-min');
 v(a,false);
end.