Дан массив из 45 целых чисел от 1 до 1000. Вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.

спасибо

var  a:array [0..44] of integer;  sum: integer;  pr: integer;  st: string;begin  sum:=0;  pr:=1;  for i:=0 to 44 do  begin     Readln('a[',i,']=',a[i]);     str(a[i],st);     if length(st)=2 then        sum:=sum+a[i];     if length(st)=1 then       pr :=pr*a[i];  end;   Writeln('Сумма: ',sum,' Произведение: ',pr);  Readlnend.