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

[asyat]

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

[Hacker19_90]

Язык то хоть какой???

[RUSt88]

выполню на любом из языков, указанных ниже, за небольшое вознаграждение

[New man]

procedure Procent(s:string;var Prop,Str:real);
var i, kol1, kol2: integer;
begin
     kol1:=0;kol2:=0;
     for i:= 1 to length(s) do
      if s[i]in ['a'..'z','а'..'я'] then
            inc(kol1)
       else if s[i]in ['A'..'Z','А'..'Я'] tehn
           inc(kol2);
      Prop:=kol1/length(s)*100;
      Str:=kol2/length(s)*100;
end;

[asyat]

язык любой