обработка строк символов

uses
 crt;
var
 a:array[1..20] of integer;
 i,j,k,min:integer;
 pr,sum,sum1:real;
 
 
begin
for i:=1 to 20 do begin
 a[i]:=random(5)-2;   //лучше вводить от руки.может сгенерировать 0.и произведение будет нулевое
 end;
 writeln('исходная последовательность');
 for i:=1 to 20 do begin
   write(a[i],' ');
  end;
   readln;
   k:=0;
 for i:=1 to 20 do begin
   if a[i] mod 2<>0 then
   inc(k);
  end;
writeln('кол-во нечетных чисел(задание 1)',' ',k);
 readln;
for i:=1 to 20 do begin
  min:=a[1];
  for j:=2 to 20 do
    if a[j]<min then
    min:=a[j];
  end;
writeln('минимальное число',' ',min);
readln;
pr:=1;
for i:=1 to 20 do begin
 pr:=pr*a[i];
end;
writeln('произведенеие минимального на все элементы',' ',pr);//можно убрать.я проверял значение произведения
 sum:=a[1]+min*pr+a[20];
writeln('задание 2 = ',' ',sum);
 readln;
 sum1:=0;
for i:=2 to 19 do begin
  sum1:=a[1]+2*a[i]+a[20];
 end;
writeln('задание 3 =',' ',sum1);
readln;
end.