program p24;
uses crt;

var f1,f2:file of char;
     znak:char;

begin
assign(f1,'info.dat');    { predstav si pod nazvem f1 soubor info.dat }
assign(f2,'docasny.dat'); { predstav si pod nazvem f2 soubor docasny.dat }
reset(f1);                { otevri soubor f1, ze ktereho se bude cist }
if ioresult<>0 then halt; { jestlize ioresult<>0 - soubor neexistuje - konec}
rewrite(f2);              { vytvor novy soubor f2 }
repeat
read(f1,znak);            { ze f1 souboru postupne cti jeden znak }
if (znak<>'x') and (znak<>'X') then write(f2,znak);
{ jestlize nacteny znak neni x nebo X, zapis jej do souboru f2 }
until eof(f1);            { opakuj dokud nedojdes na konec souboru f1 }
close(f1);                { se soubory f1, f2 uz nebudeme pracovat - }
close(f2);                { - muzeme je timto prikazem zavrit }
erase(f1);                { napadeny sobor f1 se smaze }
rename(f2,'info.dat');    { novy soubor docasny.dat se prejmenuje na info.dat}
writeln('Soubor vylecen');
end.