В матрице минимальные элементы каждой строки заменить порядковым номером элемента в строке

uses crt,modull;
var a:matr;
m,n,k:byte;
begin
clrscr;
writeln('viberite deistvie:');
writeln('1-zamena summoi polozhitelnix elementov stroki');
writeln('2-min element znachzamenit poraydkovim nomerom etogo elementa');
writeln('3-tabulirovanie');
writeln('4-summa dlya deistv chisla');
writeln('5-vixod');
 
readln(k);
if(k<1)and(k>5)
then
writeln('viberete ot 1 do 5');
case k of
1:begin
  vvod(a,m,n);
  zamena(a,m,n);
  vivod(a,m,n);
  readkey;
  end;
2:begin
  vvod(a,m,n);
  poraydor(a,m,n);
  vivod(a,m,n);
  readkey;
  end;
3: tab;
4: writeln(sum(Y,10,X));
5: exit;
end;
readkey;
 
 
Вся полная программа
 
unit modull;
 interface
 uses crt;
 const nmax=10;
 type matr=array[1..nmax,1..nmax]of integer;
      mas=array[1..nmax]of integer;
 procedure vvod(var a:matr;m,n:byte);
 procedure vivod(var a:matr;m,n:byte);
 procedure zamena(var a:matr;m,n:byte);
 procedure tab;
 procedure poraydor(var a:matr;m,n:byte);
 function sum(Y:mas;K,I:integer;X,S,P,T:real):real;
 implementation
 
 procedure vvod(var a:matr;m,n:byte);
 Var i,j:byte;
 begin
 for i:=1 to m do
 for j:=1 to n do
 read(a[i,j]);
 end;
 
 procedure vivod(var a:matr;m,n:byte);
 Var i,j:byte;
 begin
 for i:=1 to m do
 for j:=1 to n do
 write(a[i,j]);
 end;
 
 procedure zamena(var a:matr;m,n:byte);
 
 var s,max,i,j,k:integer;
 b : ARRAY [1..nmax,1..nmax] OF INTEGER; 
    BEGIN
     WRITELN('k');
     READLN(k);
     s:=0;
     IF (i=k) AND (a[i,j]>0) THEN s:=s+a[i,j];
 
     max:=a[1,1];
       m:=1;
  FOR i:=2 TO m  DO
       BEGIN
  IF a[i,i]>max THEN  m:=i;
       END;
     WRITELN;
    FOR i:=1 TO m  DO
     FOR j:=1 TO n  DO 
    BEGIN
    WRITE(' a[',i,',',j,']=',a[i,j]:1);
   END;
   WRITELN;
     WRITELN(' b '); 
    FOR i:=1 TO m  DO
     FOR j:=1 TO n  DO 
    BEGIN
    IF (i=j) AND (i=m) THEN b[i,j]:=s
    ELSE  a[i,j]:=b[i,j];
 
  end;
  end;
 
   procedure poraydor(var a:matr;m,n:byte);
   Var
   i,j,k,l,min:INTEGER;
   BEGIN
  FOR i:=1 TO m  DO
  BEGIN
  min:=a[i,1]; k:=i; l:=1;
      FOR j:=2 TO n  DO
       BEGIN
  IF (a[i,j]<min) THEN  BEGIN
     min:=a[i,j]; l:=j;
                         END;
       END;
       a[k,l]:=l;
       END;
   READLN
  END;
 
 
 procedure tab;
 VAR
N: INTEGER;  
X,Y:REAL;
BEGIN
X:=0;   
 WHILE X<0 do
 if abs(x)<0.5 then
  BEGIN 
     Y:=0;
     FOR N:=1 TO 10 DO BEGIN
     Y:=Y+(EXP(N*LN(2*X+1))/(2*N+1));
                    END;
     Y:=Y*(X+3)/(SQR(X)+4); 
     WRITELN('Х=' ,X:1:1, '  Y= ',Y:1:3);
       X:=X+0.1;  
               END;
         WHILE (X<1.2)  DO  BEGIN 
     Y:=1;
     FOR N:=1 TO 8 DO BEGIN
     Y:=Y*(1+(SQR(X+1)/(N+1)));
                      END;
        Y:=Y*(X+1)/5; 
     WRITELN('Х=' ,X:1:1, ' Y= ',Y:1:3);
       X:=X+0.1;  
                           END;
  READLN
  end;
 
  function sum(Y:mas;K,I:integer;X,S,P,T:real):real;
BEGIN
    WRITELN('X');
     READLN(X);
     WRITELN('Y');
    FOR K:=1 TO 20  DO 
     WRITE('Y[',K,']=',Y[K]:1,';');
     T:=0;
     FOR K:=1 TO 20 DO BEGIN
     T:=T+Y[K];
                       END;
     P:=1;
     FOR I:=1 TO 10 DO BEGIN
     P:=P*(SIN(I*X));
                      END;
      S:=P*T;
      WRITELN;
      WRITELN('S= ',S:1:3);
  READLN
END;
  end.

program zad1;
var
i,j,k,n,m:byte; 
a  : array [1..10,1..10] of integer; 
b  : array [1..10,1..10] of integer; 
s,max : integer;
    begin
     randomize;
     writeln('Введите n');
     readln(n);
     writeln('Введите к');
     readln(k);
     s:=0;
    for i:=1 to n  do
     for j:=1 to n do      begin
    a[i,j]:=round(30*random-15);{округление числа до целого}
      if (i=k) and (a[i,j]>0) then s:=s+a[i,j];
     end;
      max:=a[1,1];
       m:=1;
  for i:=2 to n  do
       begin
  if (a[i,i]>max) then     m:=i;
       end;
     writeln(' матрица А');
    for i:=1 to n  do
     for j:=1 to n  do begin
    write(' a[',i,',',j,']=',a[i,j]:1);
                          end;
   writeln; writeln(' новая матрица В '); 
    for i:=1 to n  do
     for j:=1 to n  do 
    begin
    if (i=j) and (i=m) then b[i,j]:=s
    else  b[i,j]:=a[i,j];
    write(' b[',i,',',j,']=',b[i,j]:1);
   end;
   readln
  end.
 
решение 2ой:
program zad2;
var i,j,k,n,m,l:byte; 
a  : array [1..10,1..10] of integer; 
min: integer;
    begin
     randomize;
     writeln('Введите m’);
     readln(m);
     writeln('Введите n');
     readln(n);
    writeln(' матрица А '); 
    for i:=1 to m  do
     for j:=1 to n do 
     begin
    a[i,j]:=round(30*random-15); 
    write(' a[',i,',',j,']=',a[i,j]:1);
     end;
  for i:=1 to m  do begin
  min:=a[i,1]; k:=i; l:=1;
      for j:=2 to n  do
       begin
  if (a[i,j]<min) then  begin
     min:=a[i,j]; l:=j;
                         end;
       end;
       a[k,l]:=l;
       end;
   writeln;
     writeln(' новая матрица  '); 
for i:=1 to m  do
    for j:=1 to n  do begin 
    write(' a[',i,',',j,']= ',a[i,j]:1);
                      end;
   readln
  end.

function sum(Y:mas;K,I:integer;X,S,P,T:real):real;
 
необходимо ее исправить в проге:
 
uses crt,modul;
var a:matr;
Y:mas;
m,n,k:integer;
X:real;
 
begin
clrscr;
writeln('viberite deistvie:');
writeln('1-zamena summoi polozhitelnix elementov stroki');
writeln('2-min element znach zamenit poryadkovim nomerom etogo elementa');
writeln('3-tabulirovanie');
writeln('4-summa dlya deistv chisla');
writeln('5-vixod');
 
readln(k);
if (k<1)and(k>5) then
writeln('viberete ot 1 do 5');
case k of
1:begin
vvod(a,m,n);
zamena(a,m,n);
vivod(a,m,n);
readkey;
end;
2:begin
vvod(a,m,n);
poraydor(a,m,n);
vivod(a,m,n);
readkey;
end;
3:tab;
4:begin
writeln(sum(Y,10,X));
readkey;
end;
5:exit;
end;
readkey;
end.

function sum(Y:mas;K,I:integer;X,S,P,T:real):real;
BEGIN
 
    WRITELN('X');
     READLN(X);
 
     WRITELN('Y');
    FOR K:=1 TO 20  DO 
     WRITE('Y[',K,']=',Y[K]:1,';');
     T:=0;
     FOR K:=1 TO 20 DO BEGIN
     T:=T+Y[K];
                       END;
     P:=1;
     FOR I:=1 TO 10 DO BEGIN
     P:=P*(SIN(I*X));
                      END;
      S:=P*T;
      WRITELN;
      WRITELN('S= ',S:1:3);
  READLN
END;
  end.