Whats wrong with my code?

[Miko99]

var high:int:=-9999
var low:int:=9999
var num:int
var counter:real

loop
counter:=counter+1


put "Enter in a number"
get num
if (num > high)then
high:=num
cls
end if
exit when counter:=6
end loop
put "The Low number is: ",num

[Delta]

code:

var low:int:=9999 var num:int for i : 1.. 6     put "Enter in a number"     get num     if (num < low)then         low := num     end if     cls end for put "The Lowest number is: ",low

MOD Edit: Gave some bits for the help. -Asok