Паскаль. "в заданной строке подсчитать кол-во букв латинского алфавита" при строковой функции "length"

S:string;
k, i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>64) and (ord(s[i])<91) then k:=k+1;
if (ord(s[i]>95) and(ord(s[i])<123) hen k:=k+1;
writeln(k);
readln;
end.