[Pascal] ASCII 2 DEC

Witam,
mam problem ;)

Chcę napisać krótki program, ale mam problem i nie mogę nigdzie znaleźć rozwiązania :P

Podaję stringa, rozbijam go na pojedyncze literki. Chcę, żeby program podał numer każdej literki w ASCII, w systemie dziesiętnym (Na przykład podaję "a" i program wypisuje "91").

I od razu drugie pytanie, jak zrobić odwrotnie? (Zamienianie liczby na przykład "91" w znak 'a')

Z góry dziękuje ;)

1. kiepsko szukales.
2. takie pytania do dzialu Newbie.
3. ord('a') zwroci 91.
4. chr(91) zwroci 'a'.
5. pozdrawiam.

Jak już to a to 97, a nie 91. Już Tobie cimak podpowiedział. Ja pokażę na przykładzie:

program a1i;

var
  I : integer;
  Tekst : string;
begin
  Write('Podaj tekst: ');
  Readln(Tekst);
  for I := 1 to Length(Tekst) do
    Write(Ord(Tekst[I]), ' ');
  Readln;
end.

Wielkie dzięki