Дана строка s, содержащая менее чем 200 символов. Преобразовать данную последовательность символов, заменив все двойные апострофы кавычками. Использовать стандартные процедуры и функции в действиях над строками.
program stroka100;
var st,st1:string[200];
l:integer;
begin
writeln('vvedite stroku');
readln(st);
while pos('"',st)<>0 do
begin
l:= pos('"',st);
st[l]:='''';
end;
writeln(st);
end.