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

program arr;var s: string;sum: integer;beginwriteln(\'Введите строку с латинскими и русскими буквами\');readln(s);for i:integer:=1 to length(s) doif ((ord(s[i]) > 64) and (ord(s[i]) < 91)) or ((ord(s[i]) > 96) and (ord(s[i]) < 123)) then sum:= sum + 1;Writeln(\'В тексте найдено \', sum, \' латинских букв\');end.