Помогите, у нас будет контрошаЗадачки с массивами

uses crt;

var

 ar: array[1..19]of integer;

 i, mul, sum, count, min, mini: integer;

begin

 count := 0;

 sum := 0;

 mul := 1;

 randomize;

 for i := 1 to 19 do

 begin

   ar[i] := random(13) - 6;

   mul := mul * ar[i];

   if(ar[i] mod 2 = 0) then

   begin

     textbackground(green);  

     sum := sum + ar[i];

     count := count + 1;

   end;

   if(ar[i] = 5) then

     textbackground(red);

   write(ar[i], ' ');

   textbackground(black);  

 end;

 writeln();

 writeln('Произведение всех частей массива = ', mul);

 writeln('Сумма четных чисел = ', sum, ', количество = ', count);

 min := ar[1];

 mini := 1;

 write('Номера элементов, одинаковых 5: ');

 for i := 1 to 19 do

 begin

   if(ar[i] = 5) then

     write(i, ' ');

   if((ar[i]) lt; min) then

   begin

     min := ar[i];

     mini := i;

   end;

 end;

 writeln();

 writeln('Малый элемент = ', min, ', его номер = ', mini);

end.