Программа и подпрограмма.

unit dupl;
interface
const max=50;{максимальный размер матрицы}
type matr=array[1..max,1..max] of integer;{тип матрицы}
procedure Duplicate(var mt:matr; var x:byte;y:byte;var p:byte);{процедура}
implementation
procedure Duplicate;
var i,j,k,q:byte;
    f:boolean;
begin
p:=0;
for i:=x downto 1 do{идем снизу матрицы}
 begin
  f:=false;
  for j:=1 to y do{смотрим строки}
  if mt[i,j]<=4 then{если есть меньше или равные 4}
   begin
    f:=true;{подходит}
    p:=1;{фиксируем наличие такой строки}
    break;{дальше эту строку не проверяем}
   end;
  if f then{если подходит}
   begin
    x:=x+1;{добавляем строку}
    for k:=x downto i+1 do{сдвигаем строки от этой вниз на 1}
    for q:=1 to y do
    mt[k,q]:=mt[k-1,q];
    for k:=1 to y do{на освободившееся место пишем эту строку}
    mt[i,k]:=mt[i+1,k];
   end;
 end;
end;
end.

uses crt,dupl;{подключаем модуль}
var a:matr;
    m,n,i,j,p:byte;
begin
clrscr;
randomize;
repeat{вводим размеры матрицы с проверкой}
write('Количество строк до ',max,' m=');
readln(m);
until m in [1..max];
repeat
write('Количество столбцов до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Исходная матрица:');
for i:=1 to m do{выводим матрицу}
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Duplicate(a,m,n,p);{выполняем процедуру}
if p=0 then write('Строк с числами меньше или равными 4 нет! Матрица не меняется.')
else
 begin{выводим результат}
  writeln('Матрица с дублированными строками:');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.

procedure Duplicate(var mt:matr; var x:byte;y:byte;var p:byte);{процедура}
//входной и выходной параметры - матрица(mt), количество строк(х); входной параметр - //количество столбцов(у); выходной параметр-наличие подходящей строки(р)
implementation
procedure Duplicate;
var i,j,k,q:byte;//разные счетчики
    f:boolean;//логическая переменная, определят есть меньше 4

var a:matr;//матрица
    m,n,i,j,p:byte;//размеры матрицы и счетчики циклов

procedure Duplicate(var mt:matr; var x:byte;y:byte;var p:byte);{процедура}