работа со строками

[asyat]

дан текстовый файл.написать программу, определяющую процентное отношение прописных и строчных букв к общему числу символов в нем

[Hacker19_90]

up_alpha := 0;
down_alpha := 0;
all_alpha = 0;
while not(eof(f)) do
begin
    read(f, s);
    Inc(all_alpha, length(s));
    for i := 1 to length(s) do
    begin
        if s[i] in [65..90] then Inc(up_alpha);
        if s[i] in [97..122] the Inc(down_alpha);
    end;
end;
Writeln ('Кол-во заглавных = ', up_alpha*100/all_alpha);
Writeln ('Кол-во прописных = ', down_alpha*100/all_alpha);