Rastie číslo?

program rastucecisla;
{$APPTYPE CONSOLE}
uses SysUtils;
var c,p:byte;
    r:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  r:=true;
  p:=1;
  repeat
    write('Zadajte cislo: ');
    readln(c);
    if (c<p) and (c <> 0) then r:=false
      else r:=true;
    p:=c;
  until c=0;
  if r=false then writeln('Postupnost nieje rastuca!')
    else writeln('Postupnost je rastuca!');
  readln;
end.