Переделать в метод простых вставок

[nestadima]

Задача такая: 3.43. Дана матрица. Упорядочить элементы столбцов матрицы по неубыванию, а сами столбцы по возрастанию произведения четных элементов столбцов. Использовать сортировку простыми вставками, реализовав метод в виде подпрограммы.

Я ее реализовал, но. Помогите переделать в метод простыми вставками, и как это реализовать в виде подпрограммы. Подскажите или покажите.

uses crt;
const
     nmax=100;
type
    arr=array[0..nmax,0..nmax] of integer;
var
   z:arr;
   s,i,j,buf,n,m,p,k,ch:integer;
begin
Writeln('ВВод матрицы');
write('Ввод кол-вo строк n=');
readln(n);
write('Ввод кол-во стоблцов m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
 begin
  Write('z[',i,',',j,']=');
  readln(z[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(z[i,j]:4);
  writeln;
 end;
writeln;
for j:=1 to m do
for k:=1 to n do
for i:=n downto k+1 do
if z[i-1,j]>z[i,j] then
 begin
  buf:=z[i,j];
  z[i,j]:=z[i-1,j];
  z[i-1,j]:=buf;
 end;
for j:=1 to m do
 begin
  s:=1;ch:=0;
  for i:=1 to n do
  if z[i,j] mod 2 = 0 then
   begin
    ch:=1;
    s:=s*z[i,j];
   end;
  if ch=0 then z[0,j]:=0;
  else z[0,j]:=s;
 end;
for p:=1 to m do
for i:=1 to m-1 do
if z[0,i]>z[0,i+1] then
for j:=0 to n do
   begin
    buf:=z[j,i];
    z[j,i]:=z[j,i+1];
    z[j,i+1]:=buf;
   end;
writeln('Отсортированная матрица:');
for i:=1 to n do
 begin
  write(' ':7);
  for j:=1 to m do
  write(z[i,j]:4);
  writeln;
 end;
write('Произв.');
for i:=1 to m do
write(z[0,i]:4);
end.

[Camaro Chevelle]

простыми вставками это вроде так в общих чертах

for i:=2 to n do begin
  buf:=item[i];
  j:=i-1;
  while (j>0) and (buf<item[j]) do begin
    item[j+1]:=item[j];
    dec(j);
  end;
  item[j+1]:=buf;
end;

ну а в виде подпрограммы в чём проблема реализовать? используй процедуру, выходным параметром которой будет сортируемая структура данных

[nestadima]

Подскажите это правельная реализация функции????

uses crt;
const
     nmax=100;
type
    arr=array[0..nmax,0..nmax] of integer;
var
   z:arr;
   s,i,j,buf,n,m,p,k,ch:integer;
   
function vivod(i,j: integer): integer;
begin
  for i:=1 to n do
 begin
  write(' ':7);
  for j:=1 to m do
  write(z[i,j]:4);
  writeln;
 end;
 end;

begin
Writeln('ÂÂîä ìàòðèöû');
write('Ââîä êîë-âo ñòðîê n=');
readln(n);
write('Ââîä êîë-âî ñòîáëöîâ m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
 begin
  Write('z[',i,',',j,']=');
  readln(z[i,j]);
 end;
clrscr;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(z[i,j]:4);
  writeln;
 end;
writeln;
for j:=1 to m do
for k:=1 to n do
for i:=n downto k+1 do
if z[i-1,j]>z[i,j] then
 begin
  buf:=z[i,j];
  z[i,j]:=z[i-1,j];
  z[i-1,j]:=buf;
 end;
for j:=1 to m do
 begin
  s:=1;ch:=0;
  for i:=1 to n do
  if z[i,j] mod 2 = 0 then
   begin
    ch:=1;
    s:=s*z[i,j];
   end;
  if ch=0 then z[0,j]:=0
  else z[0,j]:=s;
 end;
for p:=1 to m do
for i:=1 to m-1 do
if z[0,i]>z[0,i+1] then
for j:=0 to n do
   begin
    buf:=z[j,i];
    z[j,i]:=z[j,i+1];
    z[j,i+1]:=buf;
   end;
writeln('Îòñîðòèðîâàííàÿ ìàòðèöà:');
 vivod(i,j);
 end.