Viết chương trình nhập vào một xâu ký tự. Đếm và in ra màn hình số ký tự khác ký tự chữ thường có trong xâu

uses crt;
var s: string;
    i,d: longint;
begin
    clrscr;
    readln(s);
    d:= 0;
    for i:= 1 to length(s) do
        if not(s[i] in ['a'..'z']) then inc(d);
    write(d);
end.