Создание программ для обработки текстовых данных

[Mashaaaaa]

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

2. Дана строка символов, среди которых есть двоеточие (. Определить, сколько символов ему предшествует.

3. Дана строка. Определить, сколько раз входит в нее группа букв про.

4. Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.

[spein]

for i:=1 to length(str) do
  if(str[i]='г') or (str[i]='к') or (str[i]=k) then
    count:=count+1;
writeln(count);

pred:=pos(':', str);

3. Не понял
4.

delete(str, pos('.', str), length(str));
while(pos(' ', str) <> 0) do begin
counter:=counter+1;
delete(str, 0, pos(' ', str));
end;

[Hacker19_90]

Разбор полётов!
Поехали
1)

for i:=1 to length(str) do
  if(str[i]='г') or (str[i]='к') or (str[i]=k) then
    count:=count+1;
writeln(count);

правим на str[i] = 'т';
2)

pred:=pos(':', str);

Определить, сколько символов ему предшествует

Тогда ещё надо
Dec(pred);
3)

Не понял

Как-то так наверно

count := 0;
while pos('про', str) <> 0
begin
    Inc (count);
    Delete (str, pos('про', str), 3);
end;

4)

delete(str, pos('.', str), length(str));
while(pos(' ', str) <> 0) do begin
counter:=counter+1;
delete(str, 0, pos(' ', str));
end;

учитывая что строка допустим имеет такой вид
фыв ыва апр.
то последнее слово он не обработает

[unbanned]

4)

 count := 1;
  delete(str, pos(#109, str), 1); 
  str := trim(str);
  while pos(#32#32, str) <> 0 do 
    delete(str, pos(#32#32, str), 1);
  for i := 1 to length(str) do
    if str[i] = #32 then inc(count);

не?

[spein]

Hacker19_90, благодарю) на быструю руку делал)
Я когда-то делал разбитие строки на символы.(это уже скопировал из своего исходника)

     writeln('Type your string: ');
     readln(str);
     while(pos(' ', str) <> 0) do begin
                 i:=i+1;
                 a[i]:=copy(str, 0, pos(' ', str));
                 delete(str, 0, pos(' ', str));
     end;
     for i:=1 to 20 do
         writeln(a[i]);

pred:=pos(':', str) -1;