program p05;
uses Crt;

var znak,nasl_znak,pred_znak:char;
    cislo:byte;

begin
clrscr;
repeat
write('Znak : ');
readln(znak);
cislo:=ord(znak);
writeln('Ordinalni hodnota znaku je ',cislo);
pred_znak:=pred(znak); { nebo pred_znak:=chr(cislo-1) }
writeln('Predchazejici znak je ',pred_znak);
nasl_znak:=succ(znak); { nebo nasl_znak:=chr(cislo+1) }
writeln('Nasledujici znak je ',nasl_znak);
write('Urcovat dalsi znak ? ');
readln(znak);
until (znak='n');
end.