{ SIFRA.PAS                                      Copyright (c) Pheo }
{ Program vytvorí zašifrovanú kópiu vášho súboru. Každý riadok je   }
{ v nej zapísaný odzadu. Iba bodka a čiarka, ak sa nachádzajú       }
{ na konci riadku, zostanú na svojom mieste.                        }
{                                                                   }
{ Datum:27.04.2005                             http://www.trsek.com }
 
program sifra; 
var t,f:text;
    s:string;
    i:byte;
 
procedure zasifruj;
var prazdny:boolean;
begin
  assign(t,'k_pr4.txt');reset(t);
  assign(f,'kopia.txt');rewrite(f);
  while not eof(t) do
    begin
      readln(t,s);
      for i:=length(s) downto 1 do
      write(f,s[i]);
      writeln(f);
    end;
  close(t);close(f);
end;
 
begin
  zasifruj;
  writeln('Zasifrovane k_pr4.txt do kopia.txt.');
  readln;
end.