Dze je subor www.TrSek.com/zadania/sifra.pas{ 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.