Нужно написать на Паскале. зарание Спасибо

[Mainln]

Вывести на экран только положительные целые числа из диапазона от А до В (А В);

[netpolice]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b: real;
i,j,t:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write ('a:') ; Readln (a);
  write ('b:') ; Readln (b);
  i:= Trunc( a);
  j:= Trunc(b);

  for t:=i to j do
     if t >0 then writeln (t);

//  readln (a);
end.

как нибудь так, подойдет?