подпрограмма , которая из текста S изымала указанный символ х Делфи 7 (консольный режим)

[программирование]

добрый вечер, уважаемые программисты, студенты-программисты, а также все кто увлекается компьютерными науками.
помогите, пожалуйста, написать программу на языке Делфи 7 в консольном режиме (в котором нету никаких визуальных компонентов и он похож на обычный Паскаль).

вот подробное описание задания:
Условие : Создать подпрограмму , которая из текста S изымала указанный символ х и вычисляла количество изъятий .
В программе организовать вызов этой подпрограммы.
Очевидно , что подпрограмма , которая выполняет эту задачу , должна иметь три формальных параметров.
Обозначим их следующим образом :
S - заданный текст ( переменная строчного типа string ) ;
x - символ, подлежащий изъятию ( переменная символьного типа char ) ;
count - количество изъятий ( числовая переменная целого типа , например byte ) .
Параметр x должен быть параметром-значением ( входной параметр ) , а параметры S и count параметрами- переменными ( выходные параметры ) .

Строка S фактически является и входным , и выходным , так как по условию задачи именно в нем необходимо осуществить изъятие заданных символов .

Для выполнения поставленной задачи , удобнее использовать цикл с предусловием , потому что после удаления символов с строке он меняет свою длину и использования цикла с параметром ( for ) может привести к ошибке .
Кроме того , обратите внимание на то , что изменение индекса и (номер текущей позиции строки ) выполняется только в случае , если искомый символ не найдено . Это связано с тем , что строка может содержать этот символ в соседних позициях и после удаления текущего символа на ту же позицию попадает вновь искомый символ .
Отметим лишь , что соответствующие фактические параметры в предложенной программе будут называться
А ( заданный текст ) ,
ch ( символ, подлежащий изъятию) ,
N ( количество изъятий ) .


заранее огромное спасибо всем за помощь.

[программирование]

народ, помогите, пожалуйста, написать эту программу.

[Stilet]

Наработки? Попытки? Если нет то:

function extract(var s:string;c:char):Integer;
var i:integer;
begin
  result:=0;
  for i:=Length(s) to 1 do 
   if s[i]=c then begin delete(s,i,1); inc(result);end;
end;