ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГАММУ В ПАСКАЛЕ.

//Активация Windows?)

var x, y, maxy: real;
   a, b: integer;
 
begin read(a, b);
   x := a; writeln(' x', ' ', ' y');
   writeln('----------------');
   while x lt;= b do
   begin
     y := (3 * sqr(x) + x - 4);
     if(x = a) then maxy := y
     else if(maxy lt; y) then maxy := y;
     writeln(x:1:1, ' ', y:1:2);
     x := x + 0.5;
   end;
   writeln;
   write('Величайшее значение функции одинаково ', maxy);
 end.