Строки Опции

[org777]

Задача в картинке, первая сверху.
Вот то, что сделал я, но оно че-то не катит((( Помогите, а?

Program org;
var c,s1:string;
begin
writeln('Vvedite stroku: ');
readln©;
while(c<>'') do
begin
if pos('absd',c)<>0 then
begin s1:=s1+copy(c,1,pos('abcd',c)-1);
delete(C,1,pos('absd',c)+3); end
else begin s1:=s1+c;
delete(c,1,length©); end;
end;
writeln('s1= ',s1);
readln;
end.

P.S. От этой задачи зависит мой автомат на сессии. Если я ее не сдам - придется экзамен сдавать((( Эту задачу сдать мне надо уже завтра... Помогите пожалуйста

Сообщение отредактировано: org777 - 19.12.2008 23:36