Правильно ли протабулировала функцию?

program Zadacha4;  
const a = 2 ; b = 5;                                                               
var z,x:real;
begin
    x:=1;
    writeln('           Tabl            ');
    writeln('-----------------------');
     repeat
 z:=(a*x*x) + (b*x);
 writeln('| x=',x:6:2, ' | z=',z:6:2, ' |');                                                                
 writeln('-----------------------');                                                            
x:=x+0.5; 
      until x<=3; 
      while x<=5 do
  begin
      z:=x + (sin(x)/cos(x)); 
      writeln('| x=',x:6:2, ' | z=',z:6:2, ' |');
      writeln('-----------------------');                                                            
      x:=x+0.5;
 end;
     readln  
end.

program Zadacha4;
const a = 2 ;
      b = 5;
var z,x:real;
begin
x:=1;
writeln('           Tabl            ');
writeln('-----------------------');
repeat
 if x<=3 then z:=x+sin(x)/cos(x)
 else z:=a*x*x+b*x;
 writeln('| x=',x:6:2, ' | z=',z:6:2, ' |');
 writeln('-----------------------');
 x:=x+0.5;
until x>=5+0.25;
end.