удалить первое вхождение w,

[Julila]

дан текст. преоброзовать его таким образом.
удалить первое вхождение w,если есть такое.
если кто-то может или кто-то знает помогите пожалуйста.
буду благодарна.
спасибо!

[Z1000000]

program lab;
var
 s : String;
 index : Integer;
begin
s := 'lalalaWlalalaWlalalaW';
index := pos('W',s);
if index <> 0 then
 begin
 s := copy(s,1,index-1)+copy(s,index+1,length(s)-index);
 writeln(s);
 end;
end.

[Julila]

написала.
не запускается.

[XeruH]

Девушка, стоило указать ЯП,, на котором вы хотите решить данную задачу.

[Julila]

вы имеете в виду на какой программе. паскаль

[XeruH]

Сообщение от Julila

вы имеете в виду на какой программе. паскаль

язык программирования. А что говорит? Почему не запускается?

[Valio]

На Delphi всё работает... ищите ошибки на своей стороне.

[Julila]

да. просто не запускался.
я пошла другим путем. решила сначала разобраться во всем. написала прогу для простого удаления всех w
вы не могли бы мне помочь ее изменить под нужное задание.


PROGRAM LAB7_1;
uses crt;
VAR w : string;
i :integer;
begin
clrscr;
writeln('vvedite');
readln(w);
for i:=1 to length(w) do
if w[i]='w'
then delete (w,i,1);
write('rezultat ', w );
readkey;
end.

[dosha]

PROGRAM LAB7_1;
uses crt;
VAR w : string;
i :integer;
begin
clrscr;
writeln('vvedite');
readln(w);
for i:=1 to length(w) do
if w[i]='w'
then begin delete (w,i,1); break; end;
write('rezultat ', w );
readkey;
end.

[Valio]

PROGRAM LAB7_1;
uses crt;

VAR w : string;
i :integer;

begin
clrscr;
writeln('vvedite');
readln(w);

for i := 1 to length(w) do
  if w[i]='w' then Begin delete (w,i,1); Break; End; // Найдя и удалив W мы выходим из цикла for.

  writeln('rezultat  ', w );

  readkey;
end.

Гы.... ))