строки Опции

[VIK@]

Посмотрите, пожалуйста, какие ошибки, а то чего-то не получается
Определить каков процент слов в тексте начинается на
букву К. Слова разделены пробелами.

var
a,k: string [100];

 i,b,m,c: integer;
 x: real;
 begin 
 writeln ('Введите текст:');
 readln (S);
 cut:=0
 S:=' ' + S;
 b:=length (S);
 for i:=1 to b do
 begin 
 k:= ' ' + 'k';
 if copy (a,i,2)=k then m:=m+1;
 end;
 writeln ('количество k=',m)
 writeln('x=', X:4:3);
 end.

Заранее ОГРОМНОЕ спасибо

[Shura]

Да и вообще, выложенная программа не скомпилируется))
А цикл надо начинать с двойки, а не с единицы, т.к. первый символ строки мы сделали пробелом.
Вот код:

Код

Var
s: String;
i,w,k: Byte;

Begin
WriteLn('Enter string: ');
ReadLn(s);

k:=0;
w:=0;
s:=' '+s;

for i:=2 to length(s)
do if (s[i-1] = ' ')and(s[i] <> ' ')
    then begin
      Inc(w);
       if s[i] = 'k'
       then Inc(k)
     end;

Write((k*100/w):0:1, ' percents.');
ReadLn
End.