2 задачки со строками, Help! Опции

[Valkirie]

Ребят, помогите разобраться с задачками по строкам, недопонимаю я :p2:

1. Вводится строка. Вырезать из нее все подстроки, состоящие из 5 подряд идущих букв А и вставить в конец строки.

2. Дана подстрока и строка. Удалить из строки все вхождения заданной подстроки.
Вход
В первой строке входа дана подстрока, во второй - строка.
Выход
В первую строку выхода вывести строку, в которой удалены все вхождения подстроки.

Заранее спасибо ;)

[volvo]

Это первая ...

Код

const
 s :string = 'fggfbvh nbjhmkyhg aaaaa bnbkh aaaaa gngjh';

var
 i, p, count: integer;

begin
 count := 0;
 repeat
   p := Pos('aaaaa', s);
   if p > 0 then
     begin
       delete(s, p, 5); inc(count);
     end;
 until p = 0;

 for i := 1 to count do
   s := s + 'aaaaa';

 writeln( s );
end.