Ввести одномерный массив А целых чисел, вывести его. Найти произведение первых трех отрицательных элементов. Произведением заменить все нечетные элементы, если это невозможно, то сообщить об этом- Pascal(Паскаль)

uses crt;
type mas=array[1..10] of integer;
var k,i,pr,n:integer;
a:mas;
Begin
for i:=1 to 10 do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
for i:=1 to 10 do write(a[i],' ');
 
i:=1;
pr:=1;
n:=0;
 
while (n<>3) and (i<10) do
begin
     if a[i]<0 then
        begin
             pr:=pr*a[i];
             inc(n);
        end;
     inc(i);
end;
writeln;
if n<3 then writeln('Мало отрицательных чисел!!')
else
 
begin
     for i:=1 to 10 do
     if (a[i] mod 2)<>0 then a[i]:=pr;
     for i:=1 to 10 do write(a[i],' ');
end;
End.