Оформление модуля в виде процедур или функций

{Из элементов столбца с номером к массива А (mxn) вычесть минимальный элемент этого столбца}
Program M2;
uses crt;
const nmax=20;{максимальный размер матрицы}
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('кол-во строк до ',nmax,' m=');
readln(m);
until (m>0) and (m<=nmax);
repeat
write('кол-во столбцов до ',nmax,' n=');
readln(n);
until (n>0) and (n<=nmax);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
repeat
write('введите номер строки от 1 до ',m,' k=');
readln(k);
until (k>0) and (k<=m);
if k=m then m:=m-1{если последняя строка. то просто обрезаем}
else{иначе сдвигаем строки от к+ до m на 1 вверх и обрезаем}
 begin
  for i:=k to m-1 do
  for j:=1 to n do
  a[i,j]:=a[i+1,j];
  m:=m-1;
 end;
writeln('удаление строки');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

{Для матрицы А (mxn) найти произведение положительных элементов побочной диагонали}
Program abc;
uses crt;
type mass =array[1..100, 1..100] of integer;
var
a:mass;
i, j, n, m, k:byte;
min:integer;
begin
Clrscr;
writeln('vvedite razmernost matricu: ');
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('vvedite matricu');
for i:=1 to m do
for j:=1 to n do
begin
write('a[', i, ']', '[', j,'] = ');
readln(a[i,j]);
end;
write('vvedite nomer stolbca k = ');
readln(k);
min:=a[1,k];
for i:=2 to m do
if (a[i,k]<min) then min:=a[i,k];
for i:=1 to m do
a[i,k]:=a[i,k]-min;
for i:=1 to m do
begin
for j:=1 to n-1 do
begin
write(a[i,j]);
write('       ');
end;
writeln( a[i,n]);
end;
readkey;
end.

{Написать программу табулирования сложной функции}
Program M4;
uses crt;
function F(x:real):real;
var p,s,y:real;
    n:byte;
begin
if x>0 then
 begin
  p:=1;y:=1;
   for n:=1 to 8 do
begin
    y:=y*x;
    p:=p*(1+y/n);
end;
 F:=x*p/(x+1);
  end;
   begin
    s:=0;y:=1;
     for n:=0 to 7 do
      begin
     if n>0 then y:=y*x;
    s:=s+x/(n+1);
   end;
  F:=s;
 end;
end;
var x:real;
begin
clrscr;
x:=-0.5;
while x<=0.5 do
 begin
  writeln('x=',x:4:1,'  y=',F(x):6:2);
  x:=x+0.1;
 end;
readkey;
end.

unit modul;
interface
uses crt;
const nmax=20;{максимальный размер матрицы}
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var m,n:byte);
procedure Del(var a:matr;var m:byte;n:byte);
procedure Min(var a:matr;m,n:byte);
procedure Tab;
implementation
procedure Vvod(var a:matr;var m,n:byte);
var i,j:byte;
begin
repeat
write('кол-во строк до ',nmax,' m=');
readln(m);
until (m>0) and (m<=nmax);
repeat
write('кол-во столбцов до ',nmax,' n=');
readln(n);
until (n>0) and (n<=nmax);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-8;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
end;
procedure Del(var a:matr;var m:byte;n:byte);
var i,j,k:integer;
begin
repeat
write('введите номер строки от 1 до ',m,' k=');
readln(k);
until (k>0) and (k<=m);
if k=m then m:=m-1{если последняя строка. то просто обрезаем}
else{иначе сдвигаем строки от к+ до m на 1 вверх и обрезаем}
 begin
  for i:=k to m-1 do
  for j:=1 to n do
  a[i,j]:=a[i+1,j];
  m:=m-1;
 end;
writeln('удаление строки');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readkey
end;
procedure Min(var a:matr;m,n:byte);
var i,j,k:byte;
    mn:integer;
begin
repeat
write('Введите номер столбца от 1 до ',n,' k=');
readln(k);
until k in [1..n];
mn:=a[1,k];
for i:=2 to m do
if (a[i,k]<mn) then mn:=a[i,k];
writeln('Минимальный в столбце ',k,'=',mn);
for i:=1 to m do
a[i,k]:=a[i,k]-mn;
writeln('Вычитание минимального в столбце ',k);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readkey
end;
procedure Tab;
function F(x:real):real;
var p,s,y:real;
    n:byte;
begin
if x>0 then
 begin
  p:=1;y:=1;
   for n:=1 to 8 do
begin
    y:=y*x;
    p:=p*(1+y/n);
end;
 F:=x*p/(x+1);
  end;
   begin
    s:=0;y:=1;
     for n:=0 to 7 do
      begin
     if n>0 then y:=y*x;
    s:=s+x/(n+1);
   end;
  F:=s;
 end;
end;
var x:real;
begin
x:=-0.5;
while x<=0.5 do
 begin
  writeln('x=',x:4:1,'  y=',F(x):6:2);
  x:=x+0.1;
 end;
readkey;
end;
end.

uses crt,modul;
var a:matr;
    m,n,k:byte;
begin
clrscr;
randomize;
repeat
clrscr;
writeln('‚лЎҐаЁвҐ ¤Ґ©бвўЁҐ:');
writeln('1-г¤*«Ґ*ЁҐ бва®ЄЁ ¬*ваЁжл');
writeln('2-ўлзЁв**ЁҐ ¬Ё*Ё¬*«м*®Ј® ў бв®«ЎжҐ');
writeln('3-в*Ўг«Ёа®ў**ЁҐ дг*ЄжЁЁ');
writeln('4-ўл室');
repeat
readln(k);
until k in [1..4];
case k of
1:begin
  Vvod(a,m,n);
  Del(a,m,n);
  end;
2:begin
  Vvod(a,m,n);
  Min(a,m,n);
  end;
3:Tab;
4:exit;
end;
until k=4;
end.