здачи на строки

[Kirra]

Привет! Помогите, пожалуйста с Pascal…Зачёт!
1. Дана строка. Подсчитать кол-во букв»к» в последнем слове;
2. Дан текст. Написать прогу, определяющую процентное отношение строчных и прописных букв к общему числу символов в нём.

[alex_fcsm]

Определяет вхождение введенной буквы

uses crt;
var s,sub:string;
    i,n,t:integer;
    a:array[1..100] of string;
    ch:char;
begin
clrscr;

writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
t:=0;
writeln('Input letter');
readln(ch);
for i:=1 to length(a[n]) do
 if  a[n][i]=ch  then inc(t);
writeln(t);
end.

[Kirra]

Огромное спасибо!!!

[asyat]

а где решение второй задачи, где процентное отношение? мне именно она нужна

[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]

спасибо большое!

[asyat]

большое спасибо!