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

program Lab6_V7;
  uses crt;
  const n=20;
  type
    mas=array[1..n] of real;
  var
  x:mas;
  k,i:byte;
  pr:real;
  prizn:0..1;
    begin
      clrscr;
      textcolor(15);
      write('Введите количество элементов массива: ');
      readln(k);
      if k > 20 then begin
                     writeln;
                     writeln('Ошибка! Максимально допустимое кол-во элементов массива = 20.');
                     writeln;
                     writeln('Нажмите любую клавишу...');
                     readkey;
                     exit;
                     end;
      for i:=1 to k do begin
                       write('Введите ', i, '-й элемент: ');
                       readln(x[i]);
                       end;
      clrscr;
      textcolor(14);
      writeln('                               *** Массив X ***');
      writeln;
      writeln('________________________________________________________________________________');
      writeln;
      write('{');
      for i:=1 to k do write(x[i]:7:2,'');
      writeln('   }');
      writeln;
      textcolor(15);
      writeln('Для продолжения работы нажмите любую клавишу...');
      readkey;
      writeln;
      delay(1500);
      pr:=1;
      prizn:=0;
      for i:=1 to k do if i mod 2 = 0 then begin
                                           prizn:=1;
                                           pr:=x[i]*pr;;
                                           end
                                       else prizn:=0;
      textcolor(14);
      if prizn=1 then writeln('Произведение четных элементов массива X = ',pr:7:2)
                 else begin
                      writeln('Нет четных элементов в массиве, произведение = 0.');
                      textcolor(15);
                      writeln;
                      delay(1500);
                      exit;
                      end;
    writeln;
    textcolor(15);
    delay(1500);
    end.

for i:=1 to k do if (x[i] < 0) and (abs(x[i]) mod 2 = 0) then begin

program ll;
uses crt;
const n=20;
var
     mas:array[1..n] of integer;
     i:integer;
     sum,k:integer;
begin
     Randomize;
     sum:=1;
     k:=1;
     writeln('Введите длинну массива:');
     for i:=1 to n do
         mas[i]:=random(20)-10;
     for i:=1 to n do
          writeln('ваш массив arr[ ',i,' ]=',mas[i]);
     for i:=1 to n do
          begin
               if 0=i mod 2 then
                    begin
                         if mas[i]<0 then
                              begin
                                   sum:=sum*mas[i];
                              end;
                    end;
                    k:=k+1;
          end;
          writeln('произведение четных отриц элементов:');
          writeln(sum);
end.