в строке введенной с клавиатуры заменить все X на Y

[Richik123]

в строке введенной с клавиатуры заменить все X на Y

[spein]

while(pos(str, 'X')) do
str[pos(str, 'X')]:=Y;

[Richik123]

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

while(pos(str, 'X')) do
str[pos(str, 'X')]:=Y;

а полный алгороитм решения можно?

[spein]

var
x,y,str:string;
begin
write('Type your string(255 chars):');
readln(str);
write('Type what replace to what');
readln(x,y);
while(pos(str, x)) do
str[pos(str,x)]:=y;
writeln('Result string is: ', str);
readln;
end.

В ТП7 не проверял.

[Richik123]

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

var
x,y,str:string;
begin
write('Type your string(255 chars):');
readln(str);
write('Type what replace to what');
readln(x,y);
while(pos(str, x)) do
str[pos(str,x)]:=y;
writeln('Result string is: ', str);
readln;
end.

В ТП7 не проверял.

Нельзя преобразовать тип integer к boolean

[spein]

Не понял вопроса.

[Serge_Bliznykov]

var
   str : string;
   x,y : char;
begin
  write('Type your string(255 chars):');
  readln(str);
  write('Type what replace: ');
  readln(x);
  write('Type replace to: ');
  readln(y);
  while(pos(x, str)>0) do
         str[pos(x, str)]:=y;
  writeln('Result string is: ', str);
  readln;
end.

[spein]

А) да) благодарю, Serge_Bliznykov.