Использовать рекурсию в разработке программ

uses crt;
type mtr=array[1..3,1..7] of integer;
//создание и вывод матрицы на экран
procedure matrix(var a:mtr;m,n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln
 end
end;
//рекурсивная процедура нахождения 2х минимальных в столбцах
procedure min2(a:mtr;k,x,m:byte;var mn1,mn2:integer);
begin
if k=2 then
 begin
  if a[1,x]<a[2,x] then
   begin
    mn1:=a[1,x];
    mn2:=a[2,x];
   end
  else
   begin
    mn1:=a[2,x];
    mn2:=a[1,x];
   end;
 end
else
 begin
  min2(a,k-1,x,m,mn1,mn2);
  if a[k,x]<mn1 then
   begin
    mn2:=mn1;
    mn1:=a[k,x];
   end
  else if a[k,x]<mn2 then mn2:=a[k,x]
 end
end;
//процедура обработки матриц и вывода результата
procedure summa(a:mtr;m,n:byte);
var i,j:byte;
    mn1,mn2,s,mx:integer;
begin
writeln('Суммы первых 2х минимальных в столбцах');
min2(a,m,1,m,mn1,mn2);
s:=mn1+mn2;
mx:=s;
write(s:4);
for i:=2 to n do
 begin
  min2(a,m,i,m,mn1,mn2);
  s:=mn1+mn2;
  if s>mx then mx:=s;
  write(s:4)
 end;
writeln;
writeln('Максимальная из них=',mx)
end;
var a,b,c:mtr;
    mn1,mn2:integer;
begin
matrix(a,3,4,'A');
summa(a,3,4);
matrix(b,2,7,'B');
summa(b,2,7);
matrix(c,3,4,'C');
summa(c,3,4)
end.