Удаление строк и столбцов с минимальным элементом

program laba4_3;
uses crt;
const k=4;
type
    mas=array [1..3,1..4] of byte;
    mas2=array [1..k] of byte;
var
   B:mas;
   C:mas2;
   mn,imin,jmn,i,j:integer;
{=======Vvod massiva=======}
procedure Vvod(var a:mas; const ch:char);
var
   i,j:integer;
begin
     for i:=1 to 3 do
         for j:=1 to 5 do
         begin
              write (ch,'[',i,',',j,']:');
              readln(a[i,j]);
         end;
      writeln('Ishod massiv ',ch,':');
      for i:=1 to 3 do
      begin
           for j:=1 to 5 do
          write(a[i,j]:2,' ');
      writeln
      end;
end;
 
{========MIN ELEMENT======}
procedure search(var B:mas; const ch:char);
var  k1, i, j, min, imin, jmin:integer;
begin
min:=B[1,1];
jmin:=1; imin:=1;
for i:=1 to 3 do
for j:=1 to 5 do
if B[i,j]< min then
   begin
   min:=B[i,j];
   imin:=i;
   jmin:=j;
   end;
  writeln('min element B[',imin,',',jmin,']=',min:2);
{------Удаление минимального элемента-----}
begin
if B[i,j]=B[imin,jmin] then
   begin
     for i:=k1 to 2 do
     for j:=1 to 5 do
         B[i,j]:=B[i+1,j+1];
     end;
 
       for i:=1 to 3 do
      begin
           for j:=1 to 5 do
          write(b[i+1,j+1]:2,' ');
      writeln; end;
 
end;   end;
 
 
{======osnovnaya programma====}
begin
clrscr;
     vvod(B,'A');
     search(B, 'B');
    readkey;
    end.

uses crt;
const n=3;
      m=5;
      a:array[1..n,1..m] of integer=((5,8,3,9,6),
                                     (12,9,0,6,7),
                                     (5,6,8,3,2));
var i,j,imn,jmn,k:byte;
begin
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
writeln;
imn:=1;jmn:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<a[imn,jmn] then
 begin
  imn:=i;
  jmn:=j;
 end;
writeln('Минимальный элемент a[',imn,',',jmn,']=',a[imn,jmn]);
writeln;
for i:=1 to n do
for j:=jmn to m-1 do
a[i,j]:=a[i,j+1];
for j:=1 to m do
for i:=imn to n-1 do
a[i,j]:=a[i+1,j];
writeln('Удаление строки и столбца с минимальным элементом:');
for i:=1 to n-1 do
 begin
  for j:=1 to m-1 do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.