строки Опции

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

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