program Char_Demo;

  (* Program demonstrujici praci s promennymi typu char *)

uses Crt;

var a,b:char;
    i:integer;

begin
  ClrScr;

  WriteLn('Predchudci a naslednici ');
  WriteLn;
  WriteLn('Hodnota  Predchudce  Naslednik  Ordinalni hodnota');
  WriteLn;
  a:=chr(31);
  i:=0;
  while a<>chr(255) do
  begin
    i:=i+1;
    a:=succ(a);
    WriteLn(a:4,pred(a):11,succ(a):11,ord(a):15);
    if i=18 then
       begin
         i:=0;
         WriteLn;
         WriteLn('Stiskni libovolnou klavesu');
         ReadKey;   (* Pocka na stisk klavesy *)
         ClrScr;
         WriteLn('Predchudci a naslednici ');
         WriteLn;
         WriteLn('Hodnota  Predchudce  Naslednik  Ordinalni hodnota');
         WriteLn;
       end;
  end;
end.