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

program arr;

var s: string;

sum: integer;

begin

writeln ('Введите строку с латинскими и русскими буквами');

readln (s);

for i:integer:=1 to length (s) do

if ((ord (s[i]) > 64) and (ord (s[i]) 96) and (ord (s[i]) < 123)) then sum: = sum + 1;

Writeln ('В тексте найдено ', sum, ' латинских букв');

end.