Введите с клавиатуры 8 положительных целых чисел. определите, сумму двухзначных чисел. программа должна вывести одно число: сумму двузначных чисел. как решить в

Var
A,i,S:integer;
Begin
S:=0;
For i:= 1 to 8 do
    Begin
    Read(A);
    if (A>9)and(A<100) then S:=S+A;
    End;
WriteLn('Сумма двузначных чисел равна: ',S);
End.