Test boolean

uses crt;
var
  a,b: byte;
  check: boolean;
begin
  clrscr;
  write('a= '); readln(a);
  write('b= '); readln(b);
  check := false;
  if (a>b) then check:=true;
  if (check=true) then
    write('a>b')
  else
    write('a<=b');
  readln;
end.