Работа в графическом режиме

uses Crt;
 
var c, i, n:integer;
    lims,step, res:boolean;
    Fu, x, s, h, minl, maxl:real;
 
procedure writemenu();
const menu: array[1..6] of string = (
'informaciya',
'vvesti predeli',
'vvesti shag',
'posmotret rezyltat ',
'posmotret pogr',
'vihod');
var item:integer;
    pressedkey:char;
begin
    clrscr();
    for item:= 1 to length(menu) do begin
        if item = c then begin
            TextBackground(White);
            TextColor(Black);
        end
        else begin
            TextBackground(Black);
            TextColor(White);
        end;
        writeln(item,'.',menu[item]);
    end;
    TextBackground(black);
    TextColor(White);
 
    pressedkey:=ReadKey();
    if pressedkey = char(13) then
        exit;
 
    if pressedkey = char(72) then
        c:=c-1;
    if pressedkey = char(80) then
        c:=c+1;
 
    if c>length(menu) then
        c:=1
    else if c<1 then
        c:=length(menu);
 
    writemenu();
end;
 
function f(x:real):real; 
begin f:=x*x*x-x+10; end;
function fp(x:real):real;
begin fp:=(x*x*x*x/4)-(x*x/2)+10*x; end;
function integ():real; 
begin integ:= fp(maxl)-fp(minl); end;
 
begin
    step:=false;
    lims:=false;
    res:=false;
    c:=1;
    while true do begin
        writemenu();
        clrscr();
        case c of
            1: begin
                writeln('f(x)=x^3-x+10 | metod levih pryamoygolnikov');
            end;
            2: begin
                             while true do begin
                Write('vvedite nizhni predel: '); readln(minl);
                Write('vvedite verhni predel: '); readln(maxl);
                if minl < -2.3089 then
                    writeln('nizhni predel dolzhen bit bolshe 2.3089')
                else if maxl<=minl then
                    writeln('nizhni predel dolzhen bit menshe verhnego')
                else begin
                    lims:= true;
                    break;
                end;
 
            end;
                       end;
            3: begin
                                while true do begin
                Write('vvedite shag: '); readln(h);
                if h<=0 then
                    writeln('shag dolzhen bit >0')
                else begin
                    step:= true;
                    break;
                end;
                            end;
 
            end;
            4: begin
                if (step = true) and (lims = true) then begin
                    s:=0;
 
                    x:= minl;
                     repeat  begin
                        s:=s+f(x)*h;
                        x:=x+h;
                    end until x>maxl;
                    writeln('s=',s:0:3);
                    res:=true;
                end
                else writeln('vvedeni ne vse dannie');
            end;
            5: begin
                if res = false then writeln('snachala nado poschitat ploshad')
                else begin
                    Fu:=abs(s-integ());
                    WriteLn('absolytnaya pogr ', Fu:0:3);
                    WriteLn('otnositelnaya pogr ', (Fu/s*100):0:2, '%');
                end;
            end;
            6: exit;
        end;
        ReadLn();
    end;
end.