в массиве из N знаков сосчитать кол-во латинских букв

program arr;
var s: string;
sum: integer;
begin
writeln(Введите строчку с латинскими и русскими знаками);
readln(s);
for i:integer:=1 to length(s) do
if ((ord(s[i]) gt; 64) and (ord(s[i]) lt; 91)) or ((ord(s[i]) gt; 96) and (ord(s[i]) lt; 123)) then sum:= sum + 1;
Writeln(В тексте найдено , sum, латинских букв);
end.