помогите с задачей на Delphi

[lyonya0111]

задача по строкам
Дана строка, содержащая менее 200 символов.Преобразовать двойные апострофы кавычками.Использовать стандартные процедуры и функции в действиях над строками

Заранее блогодарен.

[Карась]

Преобразовать двойные апострофы кавычками.

чево сделать? Можно пример.....

[lyonya0111]

да
нужно Преобразовать двойные апострофы кавычками

[_Dmitry]

Ну и в чем проблема?
Первый апостроф меняйте на кавычки, второй удаляйте

  k:=pos('''''',s); {здесь 6 апострофов подряд}
  while k <> 0 do
    begin
      s[k]:='"'; {здесь кавычки в апострофах}
      delete(s,k+1,1);
      k:=pos('''''',s);
    end;

[lyonya0111]

че то не получается помогите
var
s: string[200];
i,k:integer;

begin
s:=Edit1.Text;
k:=pos('''''',s);
while k <> 0 do
begin
s[k]:='"';
delete(s,k+1,1);
k:=pos('''''',s);
end;
Label1.Caption:=FloatToStr(k);
end;
end.

[Stilet]

Вместо s[k]:='"'; нужно insert('''',s,k)

[_Dmitry]

А это что такое: Label1.Caption:=FloatToStr(k);
В данном алгоритме k всегда будет 0 - это условие выхода из цикла.
Замените на: Label1.Caption:=s;

[SERG1980]

var: str1 string;
str1 := StringReplace(str, ' " ', ' ' ',
[rfReplaceAll, rfIgnoreCase]);
где str строка которую надо преобразовать

[lyonya0111]

а можно уже готовый код

[_Dmitry]

У вас он готовый см. пост #5, произведите замену в соответствии с #7