Строки Опции

[SeRGuS]

Напишите программу с использованием строк, если можно то с объеснением данной программы:

Дана строка. Подсчитать число вхождений буквы f в первые три группы букв, в группе должны быть только буквы, группы разделить пробелами.

[SeRGuS]

Добрый вечер всем, задача так и небыла решена мной, очень хороший человек написал приблизительный текст, но она неработает так как надо может кто - нибудь сможет отредактировать исходник:

Код

var S0,S1,S: string;
l: char;
k,i: integer;
begin
S0:='';S:='';
for i:=1 to 3 do
begin
S0:= S0+S; S:='';
repeat
write ('Введите след символ строки');
read(l);
S:=S+l;
if (l>='0') and (l<='9') then write ('Непр ввод')
else if pos('f',S)<>0 then k:=k+1;
until l=' ';
write ('Введите оставшуюся часть строки');
read (s1);
S:=S0+S1;
end; end.

P.S.: Нужно ввести все одной строкой, а не почастям.