В заданной матрице поменять местами последнюю строку со строкой , содержащий минимальный элемент матрицы

uses crt;
const m=10;
type massiv=array[1..m] of real;
var a:massiv;
i,n,k,b:integer;
x,y:real;
Begin
b:=0;
write('N>>>');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
 
for i:=1 to n do write(a[i],'  ');
writeln;
write('x=');readln(x);
write('y=');readln(y);
for i:=1 to n do
if (a[i]>=x) and (a[i]<=y) then inc(b);
 
if b=0 then writeln('Íåò ýëåìåíòîâ,ïðèíàäëåæàùèõ Ê')
else
Begin
write('K= ');readln(k);
 
for i:=1 to n do
if not((a[i]>=x) and (a[i]<=y)) then a[i]:=k;
 
for i:=1 to n do write(a[i],'  ');
end;
End.

program zzz;
 uses crt;
   const n=5;
         m=5;
 var
a:boolean;
ar:array[1..n,1..m] of integer;
i,k,min,imin,j,buf:integer;
begin
for i:=1 to n do begin
    for j:=1 to m do begin
        ar[i,j]:=random(30)+1;
        write(ar[i,j]:4);
    end;
writeln;
end;
min:=ar[1,1];
imin:=1;
 
for i:=1 to n do
for j:=1 to m do
if ar[i,j]<min then
begin
imin:=i;
min:=ar[i,j];
end;
 
 
if imin=n then writeln('Ïîñëåäíÿÿ ñòðîêà ñîäåðæèò ìèíèìàëüíûé ýëåìåíò')
else
begin
 
for j:=1 to m do
begin
     buf:=ar[imin,j];
     ar[imin,j]:=ar[n,j];
     ar[n,j]:=buf;
end;
 
writeln('Îáðàáîòàííÿ ìàòðèöà: ');
 
for i:=1 to n do begin
    for j:=1 to m do
 
        write(ar[i,j]:4);
 
writeln;
end;
end;
end.

Program massive;
{Дан вещественный массив a1,a2,...,an. Если в этом массиве есть хотя бы один элемент, принадлежащий отрезку [х,у], то все элементы, не принадлежащие этому отрезку, заменить значением К.}
uses crt;
Const RAZ=10;
Type
  Tind=1..RAZ;
  Telem=integer;
  TMas=array[Tind] of Telem;
 
Procedure vvod (var n:Tind; var a:TMas);
Var
    i:Tind;
begin
    write('Введите размер массива:');
    readln(n);
    for i:=1 to n do
    begin
       write('a[',i,']=');
       readln;
    end;
end;
 
Procedure massiv (n:Tind; const  a:TMas; var b,k:Telem);
Var
    x,y:Telem;
    i:Tind;
begin
    b:=0;
    for i:=1 to n do write(a[i]:4,'  ');
    writeln;
    write('x='); readln(x);
    write('y='); readln(y);
    write('K= '); readln(k);
    for i:=1 to n do
    if (a[i]>=x) and (a[i]<=y) then inc(b);
end;
 
Procedure vivod (n:Tind; const  a:TMas; var b,k,x,y:Telem);
Var
    i:TInd;
Begin
    if b=0 then writeln('Нет элементов,принадлежащих К')
    else
    begin
        for i:=1 to n do
            if not ((a[i]>=x) and (a[i]<=y)) then a[i]:=k;
            for i:=1 to n do write(a[i]:4,'  ');
    end;
end;
 
Var
    m:Tind;
    b:TMas;
    p,k:Telem;
Begin
    clrscr;
    vvod(m,b);
    massiv(m,b,p,k);
    vivod(p,k);
    readln
End.