матрица,мин значение,замена

const Nn=10; Mn=10;
type mas=array [1..Nn,1..Mn] of integer;
var Matr:mas;
    i,j,n,m:integer;
 
//Поиск минимального элемента и замена
procedure MinElement(var matr:mas; n,m:integer);
var min,count,i,j,k:integer;
begin
for i:=1 to N do
  begin
  min:=matr[i,1];
  count:=0;
  for j:=1 to M do
    begin
      if(matr[i,j]<min) then begin min:=matr[i,j]; count:=j; end;
      if(j>=M) then
      begin
        for k:=1 to count-1 do
          matr[i,k]:=0;
      writeln('Минимальный элемент ',i,' строки = ',min);
      end;
    end;
  end;
writeln;
end;
 
//Вывод матрицы
procedure Writing(matr:mas; n,m:integer);
var i,j:integer;
begin
  for i:=1 to n do
    begin
    for j:=1 to m do
      write(matr[i,j],' ');
      writeln;
    end;
writeln;
end;
 
//Ввод матрицы
procedure Input(var matr:mas; var n,m:integer);
var i,j:integer;
begin
writeln('Введите размерность матрицы(n,m)');
read(n,m);
for i:=1 to n do
  begin
  writeln('Введите ',m,' элементов ',i,' строки');
  for j:=1 to m do
    read(matr[i,j]);
  end;
writeln;
end;
 
begin
Input(matr,n,m);
writeln('До преобразования:'); 
Writing(matr,n,m);   
MinElement(matr,n,m);
writeln('После преобразования:');
Writing(matr,n,m); 
end.