Kód: Vybrať všetko

program tit;
uses crt;
var cesta1, cesta2:string;
    f1,f2:text;
    a,b:char;
begin
     clrscr;
     writeln('zadaj absulutnu cestu k suboru:');
     writeln('napr  C:\films\titulky.str');
     readln(cesta1);
     writeln('zadaj ze kde sa ma ulozit');
     writeln('napr  C:\films\titulky_zmeneny.str');
     readln(cesta2);
     assign(f1, cesta1);
     assign(f2, cesta2);
     reset(f1);
     rewrite(f2);
     while not(eof(f1)) do
     begin
           read(f1, a);
           if a='ľ' then a:='l';
           if a='š' then a:='s';
           if a='č' then a:='c';
           if a='ť' then a:='t';
           if a='ž' then a:='z';
           if a='ý' then a:='y';
           if a='á' then a:='a';
           if a='í' then a:='i';
           if a='é' then a:='e';
           if a='ú' then a:='u';
           if a='ä' then a:='a';
           if a='ň' then a:='n';
           if a='ô' then a:='o';
           if a='ě' then a:='e';
           if a='ř' then a:='r';
           if a='ů' then a:='u';
           if a='ď' then a:='u';
           b:=a;
           write(f2, b);
     end;
     writeln('svoju pracu som uz vykonal!!!');
     close(f1);
     close(f2);
     readln;
end.