Строки(pascal)

[wormiks40]

Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке.
Помогите пожалуйста=(

[Hacker19_90]

ReadLn(str);
ReadLn (ch);
count := 0;
while pos (ch, str) <> 0 do
begin
  Inc(count);
  Delete(str, pos(ch, str), 1);
end;
WriteLn(count);

[wormiks40]

А что дальше?(

[Hacker19_90]

А что дальше?(

с бубном потанцевать в понедельник в полнолуние!
ШУТКА! хотя...
Вот вам весь код

program example;
uses 
  crt;
var
  count: integer;
  str: string;
  ch: char;
begin
  clrscr;
  WriteLn ('Введите строку:');
  ReadLn(str);
  WriteLn ('Введите символ для поиска:');
  ReadLn (ch);
  count := 0;
  while pos (ch, str) <> 0 do
  begin
    Inc(count);
    Delete(str, pos(ch, str), 1);
  end;
  WriteLn('Символ ', ch, ' встречается ', count, ' раз!');
  ReadKey;
end.

Как то так

[wormiks40]

Спасибо большое выручил.