Создать процедуру, которая определяет последний мини-мальный элемент в трех средних строках матрицы. Заменить в матрице этот элемент нулем.

Program prog4;
Uses Crt;
Type TArray=Array[1..10,1..10] of Real;
Var A, B, C, D : TArray; n,m,k,l : Byte; h : Char; Ar : Real;
Procedure InMatr1(Var x:TArray; row,col:Byte);
Var d,i,j:Byte; S,y : String;
Begin
For i:=1 To row Do Begin
y:=' '; d:=WhereY;
GotoXY(1,d);
For j:=1 To col Do Begin
Readln(x[i,j]);
Str(x[i,j]:6:1,S);
y:=y+S;
GotoXY(Length(y),d);
End;Writeln;End;End;
Procedure Print(x:TArray; row,col:Byte); 
Var i,j:Byte; 
Begin 
For i:=1 to row do Begin
For j:=1 to col do Begin
Write(x[i,j]:7:2,' ');
End;Writeln;End;End;
BEGIN
Write('Vvedite kol-vo strok i stolbtsov matrici A');
Readln(n,m);
inMatr1(A,n,m);
Write('Vvedite kol-vo strok i stolbtsov matrici B');
Readln(k,l);
InMatr1(B,k,l);
Print(A,n,m); writeln(' ');
Print(B,k,l);
readln;
end.

Program prog4;
Uses Crt;
Type TArray=Array[1..10,1..10] of Real;
Var A, B, C, D : TArray; n,m,k,l : Byte; h : Char; Ar : Real;
 
Procedure InMatr1(Var x:TArray; row,col:Byte);
Var d,i,j:Byte; S,y : String;
Begin
For i:=1 To row Do
    Begin
    y:=' '; d:=WhereY;
    GotoXY(1,d);
    For j:=1 To col Do
        Begin
        Readln(x[i,j]);
        Str(x[i,j]:6:1,S);
        y:=y+S;
        GotoXY(Length(y),d);
        End;
    Writeln;
    End;
End;
 
Procedure Print(x:TArray; row,col:Byte);
Var i,j:Byte;
Begin
For i:=1 to row do
    Begin
    For j:=1 to col do
        Write(x[i,j]:7:2,' ');
    Writeln;
    End;
End;
 
procedure Change (row,col:Byte; var x:TArray);
var jmin,i,j:Byte;
begin
for i:=row div 2 to row div 2+2 do
    begin
    jmin:=1;
    for j:=1 to col do
        if x[i,j]<x[i,jmin] then jmin:=j;
    x[i,jmin]:=0;
    end;
end;
 
BEGIN
Write('Vvedite kol-vo strok i stolbtsov matrici A');
Readln(n,m);
inMatr1(A,n,m);
Write('Vvedite kol-vo strok i stolbtsov matrici B');
Readln(k,l);
InMatr1(B,k,l);
writeln('Matrix A');
Print(A,n,m);
writeln('Matrix B');
Print(B,k,l);
Change (n,m,a);
Change (k,l,b);
writeln('MatrixMod A');
Print(A,n,m);
writeln('MatrixMod B');
Print(B,k,l);
readln;
end.