Вычислить произведение минимального и максимального элементов массива

var f:array[1..100]of integer;
p,i,n:integer;min,max,kmin,kmax:integer;
begin
writeln ('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do 
begin
f[i]:=random(100);
writeln('f[i]=',f[i]);
 
end;
min:=f[1]; kmin:=1;
max:=f[1]; kmax:=1;
for i:=2 to n do 
begin
if f[i]<min then 
begin min:=f[i];
kmin:=i; 
end;
if f[i]>max then begin max:=f[i];
kmax:=i;
end;
end;
p:=min*max;
if kmin<>1 then f [kmin -1]:=p
else if kmax <> n then f[kmax+1]:=p
else 
write('Смену нельзя произвести');
writeln('p=',p);
end.

uses crt;
const n = 100;
var
f: array [1..n] of integer;
min, max, pmin, pmax: integer;
i, m: byte;
begin
write('Введите размер массива: ');
readln(m);
writeln('Массив:');
for i := 1 to m do
begin
f[i] := random(100);
write(f[i], ' ');
end;
writeln;
min := f[1]; max := f[1];
for i := 1 to m do
if (min >= f[i]) then
begin
min := f[i];
pmin := i;
end
else
if (max < f[i]) then
begin
max := f[i];
pmax := i;
end;
if (pmin > 1) then
begin
f[pmin - 1] := min * max;
for i := 1 to m do
write(f[i], ' ');
end
else
if (pmax < m) then
begin
f[pmax + 1] := min * max;
for i := 1 to m do
write(f[i], ' ');
end
else writeln('Замену произвести нельзя');
end.