Отыскать разницу (-) меж наивеличайшими и меньшими значениями из последовательности n

program n;

var max, min,temp:integer;

begin

 read(min);

 max:=min;

 while(true)do

 begin

   read(temp);

   if temp = 0 then break;

   if temp gt; max then max:=temp;

   if temp lt; min then min:=temp;    

 end;

 write(max - min);

end.

Эта программка буде работать, если последовательность будет оканчиваться нулем