Найти кол-во всех элементов целочисленного массива, которые не являются положительными двузначными числами. В Паскале.

function sd(n: longint): integer;
begin
if n < 0 then sd := sd(-n) else if n > 9 then sd := 1 + sd(n div 10) else sd := 1
end;

var
a: array [1..20] of integer;
c, r: integer;
begin
randomize;
writeln('массив: ');
for c := 1 to 20 do begin
a[c] := random(401) - 200;
write(' ', a[c]);
end;
writeln; writeln;
for c := 1 to 20 do if not ((a[c] > 0) and (sd(a[c]) = 2)) then inc(r);
writeln('число элементов не являющихся положительными двузначными числами равно ', r);
end.