Табулирование функции, помогите плз с задачей Опции

[Breid]

Задание: Протабулировать функцию s(t). Функция s(t)=8t на отрезке от 0 до 1, s(t)=8 если 1<=t<=3, s(t)=-4t+20, если t>3. Аргумент функции t меняется от 0 до 5 с шагом 0,2.

program;
uses crt;
var x,f:real;i:integer;


function func(t:real;var f:real):boolean;
begin
	 func:=false;
	 if (t>=0) and (t<1) then
	 begin
		  f:=8*t;
		  func:=true;
	 end
	 else if (t>=1) and (t<=3) then
	 begin
		  f:=8;
		  func:=true;
	 end
	 else if (t>3) then
	 begin
		  f:=4*t+20;
		  func:=true;
	 end;

end;

BEGIN
	 clrscr;
	 writeln('x':10,'f(x)':10);
	 for i:=0 to 25 do begin
		 x:=0.2*i;
		 if func(x,f) then writeln(x:10 :1,f:10 :1)
		 else writeln(x:10 :1,'*':10);
		 if i=20 then begin
		  writeln('Press any key to continue');
		  readkey;
		 end;
	 end;
READLN
END.

это программа работает, ну вот только преподователю не понравилось что я использовал логический оператор "boolean", ну так собственно в этом то и вопрос, можно ли как то это дело упростить, т.е. сделать без "boolean"? подскажите плз
п.с. я в паскале новичок, поэтому просьба сильно не пинать а эту задачу делал просто по похожему примеру...
заранее спасибо