Поиск буквы в слое

[o1ps]

Допустим у нас есть текст. И нам необходимо найти в нем все 5 символьные слова
После того как мы их нашли, как организовать удаление из всех слов (уже найденных) буквы "А"?
Подскажите пожалуйста алгоритм (если вас не затруднит в виде блок схемы, буду очень признателен)

[juden]

премерно во так

[o1ps]

А можно это воплотить без "pos"?

[Трофимов Александр]

Можно рассматривать слово как массив и при помощи цикла удалять символы А. Как вариант делаешь временную строковую переменную и циклом добавляешь туда буквы которые не равны А из слова, а затем (в конце цикла) заменяешь приравниванием искомое слово временным.

[o1ps]

Подскажи как реализовать эти варианты более подробною Буду очень признателен и благодарен.

[juden]

насчет первого варианта с "pos" то там все по схеме должно быть понятно выглядеть там будет ват так :
while x<>0 do
begin
x:=pos('A', st);
if x<>0 then
delete(st, x, 1);
end;

а начет второго с массивом примерно вот так:
x:=length(st);
for i:=1 to x do
if st[i]<>'A' then
st1:=st1+st[i];
st:=st1;
есле же у тебя текст в несколько строк то st сначало будет ровняться первой строке, затем второй и т.д.

[o1ps]

Возникла еще одна идея поиска слов из 5-букв.
вводим массив, потом задаем цикл i=1,5. Затем b=a(i) (:5) потом присваиваем b=a(i)

По-поводу отсутствия буквы s: так же прогоняем массив
b(:1)='s'
b(2:2)='s'
Помогите доразвить идею схемы, пожалуйста. Буду очень благодарен.