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

s:string;k, i:integer;beginreadln(s);for i:=1 to length(s) doif (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.