заменить максимальный элемент на произведение всех отрицательных элементов

uses crt;
const n=5;
type mas=array[1..n] of integer;
procedure Nmax(v:mas; var imx:byte);
var i:byte;
begin
imx:=1;
for i:=1 to n do
if v[i]>v[imx] then imx:=i;
end;
function Proiz(v:mas;var k:byte):integer;
var i:byte;
    p:integer;
begin
p:=1;
k:=0;
for i:=1 to n do
if v[i]<0 then
 begin
  p:=p*v[i];
  k:=k+1;
 end;
Proiz:=p;
end;
var a:mas;
    i,imax,k:byte;
    p:integer;
begin
clrscr;
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
Nmax(a,imax);
writeln('Номер максимального=',imax);
p:=Proiz(a,k);
if k=0 then write('В масиве нет отрицательных чисел!')
else
  begin
   writeln('Произведение отрицательных=',p);
   a[imax]:=p;
   writeln('Замена:');
   for i:=1 to n do
   write(a[i],' ');
  end;
readln
end.