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

[Valkirie]

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

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

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

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

[volvo]

А это вторая (по образу и подобию первой :D ):

Код

var
 s, subs: string;
 i, p, count: integer;

begin
 write( 'substr > ' ); readln(subs);
 write( 'string > ' ); readln(s);
 repeat
   p := Pos(subs, s);
   if p > 0 then
     delete(s, p, length(subs))
 until p = 0;

 writeln( s );
end.

P.S. Что значит "визуальная" ?

Сообщение отредактировано: volvo - 2.11.2004 17:22