Домашняя работка.

[SkApY]

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

Заранее спсбо тому,кто поможет решить.

[SkApY]

Неужели никто не поможет?

[ОДИНОЧЕСТВО В СЕТИ]

var s:string;
k,i,k1:integer;
begin
readln(s);
k1:=0;
while pos('aaaaa',s)<>0 do begin
k:=pos('aaaaa',s);
delete(s,k,5);
inc(k1);
end;
for i:=1 to k1 do
s:=s+'aaaaa';
writeln('new s',s);
readln;
end.