program PascalGuru;
uses crt;
 
var f,g:text;
    str:string;
{--------------------------------------------}
procedure RemWord(FileIn:string;FileOut:string);
var i,j:integer;
    s:string;
begin
assign(f,FileIn); reset(f);
assign(g,FileOut); rewrite(g);
 
while not eof(f) do
      begin
      readln(f,s);
 
                   for i:=1 to length(s) do
                        begin
                             if s[i]='"' then
                              for j:=i+1 to length(s) do
                              if s[j]='"' then delete(s,i,j-i+2);
 
                             if s[i]='''' then
                              for j:=i+1 to length(s) do
                              if s[j]='''' then delete(s,i,j-i+2);
                        end;
 
       writeln(g,s);
       end;
close(f);close(g);
end;
{--------------------------------------------}
begin
RemWord('File.In','File.Out'); {вызов процедуры}
writeln('Fail "File.Out" uspeshno zapisan...');
 
readln;
end.