Szyfrowanie w TURBO PASCALU

Mam pytanie! Jak zaszyfrowac tekst tzn. lancuch znakow (string) w Turbo Pascalu?
Najlepiej jakbym w efekcie otrzymal cyfry i litery ale obojetnie jak chce sie dowiedziec.

Aha no i przydalaby sie metoda jak je odszyfrowac z powrotem :|

program opek;
uses crt;

var
s,output : string;
o : string[1];
a : integer;

begin
readln(s);
for a:=0 to length(s) do
begin
o := s[a];
o := ord(o);
output := output + o;
end;
writeln(s);
readln;
end.

przeciwna funkcja do ord to chr - tak sie szyfruje ale coś mi wywala bąd (nie wiem dlaczego) przy o := ord(o); :( i dlatego nie działa - ale moze ty będziesz wiedział co..

hmmm operator bitowy "xor" moze sie przydac np.

for i:=0 to length(string) do
begin
string[i]:=(string[i])xor(jakas liczba);
i:=i+1;
end;

zeby to od szyfrowac

for i:=0 to length(string) do
begin
string[i]:=(string[i])xor(taka sama liczba jak szyfrowales);
i:=i+1;
end;

i koniec

juz dawno nie pisalem w pascalu wiec wiesz

                       Puszkin

Po instrukcji xor gdy wpisuje liczbe jest Error mismatch. Wiec chyba nie chodzi zeby wpisac liczbe.

no tak dawno nie pisalem w pascalu

musisz zrobic (chr(string[i]))

no

                 Puszek nie okruszek

hm
wiesz co
musisz zrobic tak znak string[i] zamienic na kod ascii

i koniec
hm
to raczej nie bedzie chr() lecz cos innego lecz nie pamietam