Наименьший элемент каждой строки матрицы, начиная со 2-й, замените наибольшим элементом предшествующей строки

program zadacha;
uses crt;
const
     n = 7;
type
    mas = array[1..n,1..n] of integer;
var
   M : mas;
   i,j: integer;
   min,max : integer;
{Функция ищет индекс минимального элемента}  
function mini(m : mas;i:integer) : integer;
var
 j,indexmin : integer;
 min : integer;
begin
    indexmin := 1;
    min := m[i,j];
     for j := 1 to n do
         if m[i,j]<min then
          begin
            min := m[i,j];
            indexmin := j;
          end;
    mini := indexmin;
end;
 
{Функция ищет индекс максимального элемента элемента} 
function maxi(m : mas;i:integer) : integer;
var
 j,indexmax : integer;
 max : integer;
begin
     indexmax := 1;
     max := m[i,1];
     for j := 1 to n do
         if m[i,j]>max then
          begin
            max := m[i,j];
            indexmax := j;
          end;
     maxi := indexmax;
end;
 
procedure pechat(m :mas;i,min : integer);
var
   j : integer;
begin
 textcolor(15);
 for j := 1 to n do
     begin
     if min = j then
      begin
        textcolor(red);
        write (m[i,j] :4);
        textcolor(15);
      end
     else
        write (m[i,j] :4);
     end;
     writeln;
end;
 
 
begin
clrscr;
textcolor(15);
for i := 1 to n do
    for j := 1 to n do
    m[i,j] := random(50);
 
for i := 1 to n do
begin
    for j := 1 to n do
    write(m[i,j] :4);
writeln;
end;
 
{
Write ('Index min : ');
for i := 1 to n do
    Write (mini(m,i), ' ');
Writeln;
Write ('Index max : ');
for i := 1 to n do
    Write (maxi(m,i), ' ');
}
 
max:=maxi(m,1);
writeln;
pechat(m,1,max);
 
for i := 2 to n do
    begin
        min := mini(m,i);
        m[i,min] := m[i-1,max];
        pechat(m,i,min);
        max := maxi(m,i);
    end;
    readkey;
end.