Улучшить интерфейс программы

Program pu;
 
uses crt,graphabc;
var xmin,xmax,dia,x,y:real;
Vved,appexit:boolean;
punkt:byte;
Knopka : Char;
n:integer;
 
    Function Probel(Str : String) : String;
Var i : Integer;
     Result : String;
Begin
  Result := '';
  For i := 1 To Length(Str) Do If Str[i] <> ' ' Then
  Result := Result + Str[i];
  Probel := Result;
End;
Function Prov(Str : String) : Boolean;
Var i : Integer;
Begin
  Prov := True;
  For i := 1 To Length(Str) Do
  If ((Ord(Str[i]) < 45) Or (Ord(Str[i]) > 57)) Or (Ord(Str[i]) = 47) Then
  Begin
     Prov := False;
     Exit;
  End;
End;
Procedure Punkt_Menu;
Begin
  ClrScr;
  If Punkt = 1 Then TextColor(4)
  Else TextColor(DarkGray);
  GoToxy(30, 5);
  WriteLn('About programm');
  If Punkt = 2 Then TextColor(4)
  Else TextColor(DarkGray);
  GoToxy(30, 8);
  WriteLn('Vvod dannih and raschet');
  If Punkt = 3 Then TextColor(4)
  Else TextColor(DarkGray);
  GoToxy(30, 11);
  WriteLn('Grafik');
  If Punkt = 4 Then TextColor(4)
  Else TextColor(DarkGray);
  GoToxy(30, 14);
  WriteLn('Exit');
 
End;
 
{ob avtore}
Procedure Punkt_Avtor;
Begin
  ClrScr;
  TextColor(5);
  GoToxy(30, 20);
  WriteLn('Выполнила: Ревьер К.А.    ');
  GoToxy(33, 22);
  WriteLn('Группа: Ст-140014  ');
  GoToxy(30, 24);
  WriteLn('Проверила: Карманова М.М. ');
  TextColor(9);
  GoToxy(1, 7);
  WriteLn('    Программа рассчитывает значение функции,запросив у пользователя');
  WriteLn('       интервал и шаг изменения аргумента функции.');
   WriteLn('   Выводит расчет на экран в виде таблицы и выводит график функции.');
  WriteLn;
  WriteLn('                    Функция:');
  WriteLn;
  WriteLn('                    y=(7*x^2+1.5*x-15)/(2+x)');
 
  WriteLn;
  TextColor(4);
  GoToxy(40, 40);
  Write('(Для возврата в меню нажмите любую клавишу)');
  ReadKey;
  Punkt_Menu;
End;
 Procedure Punkt_Vvod;
Var Str : String;
     i : Integer;
Begin
 
  ClrScr;
     TextColor(8); Vved:=true;
  GoToxy(20, 10);
  Write('Введите левую границу диапазона xmin=');
   GoToxy(30, 11);
  Str := '';
  While Str = '' Do
  Begin
     ReadLn(Str);
     Str := Probel(Str);
     If Prov(Str) Then Val(Str, xmin, i)
     Else
     Begin
        Str := '';
        Write('Пишите только число');
     End;
  End;
  GoToxy(20, 16);
  Write('Введите правую границу диапазона xmax=');
  GoToxy(30, 17);
  Str := '';
  While Str = '' Do
  Begin
     ReadLn(Str);
     Str := Probel(Str);
     If Prov(Str) Then Val(Str, xmax, i)
     Else
     Begin
        Str := '';
        Write('Пишите только число');
     End;
     end;
      If Vved = False Then
  Begin
     WriteLn('Нет данных, введите xmin и xmax.');
     WriteLn;
     TextColor(4);
     GoToxy(40, 40);
     Write('Нажмите клавишу enter');
     ReadKey;
 
  End;
 
 repeat
  clrscr;
if xmax<=xmin then begin
                      GotoXY(20,22);
                      writeln('xmax должно быть больше xmin, повторите ввод');
                      GotoXY(20,10);
writeln('Введите левую границу диапазона xmin=');
readln(xmin);
GotoXY(20,16);
writeln('Введите правую границу диапазона xmax=');
readln(xmax);
 
 
end;
                      until xmax>xmin;
                       clrscr;
                      
                      repeat
 
                          GotoXY(20,17);
writeln('Введите шаг изменения аргумента dia=');
readln(dia);
 
 
 
 
   if ((xmax-xmin)<=dia) or (dia<=0) then begin
                       GotoXY(20,24);
                       writeln('Такой шаг изменения аргумента быть не может,');
                       writeln('     нажмите Enter и повторите ввод');
                       end;
 
until (dia>0) and ((xmax-xmin)>dia);
clrscr;
 
n:=trunc((Xmax-Xmin)/dia+1);
x:=Xmin;
gotoxy(20,1);
writeln('Таблица');
For i:=1 to n do
begin
if x=-2 then begin
              writeln(' x=-2      Точка разрыва');
              x:=x+dia;
              end
else;
if (x<>-2) and (x<=xmax)then begin
y:=(7*x*x+1.5*x-15)/(2+x);
 
writeln (' x=',x:3:2, '      y=',y:3:2);
x:=x+dia;
end;
delay(100);
end;
readln;
  Punkt_Menu;
end;
 
 
 
 
Procedure Punkt_Grafik;
 
var mx,my,k,tx,ty:integer;
x,y, x1,x2,s,f,h,y1,y2:real;
Begin
 
  ClrScr;
  If Vved = False Then
  Begin
     WriteLn('Net dannih! Vvedite ''a'' i ''b''.');
     WriteLn;
     TextColor(4);
     GoToxy(40, 40);
     WriteLn('Press to enter');
     ReadKey;
     Exit;
  End;
    setwindowsize(640,480);
mx:=25; {цена деления по x}
my:=25; {цена деления по y}
 
 
 
{координатная сетка}
SetPenColor(0);
k:=320;
while (k<=640) do
begin
line(k,0,k,480);
line(640-k,0,640-k,480);
k:=k+mx;
end;
 
k:=240;
while (k<=480) do
begin
line(0,k,640,k);
line(0,480-k,640,480-k);
k:=k+my;
end;
 
{оси}
 SetPenWidth(2);
SetPenColor(0);
line(0,240,640,240);
line(320,0,320,480);
line(640,240,630,230);
line(640,240,630,250);
line(310,10,320,0);
line(320,0,330,10);
SetPenWidth(1);
x:=xmin;
textout(310,220,'0');
//подписи концов осей
textout(windowwidth-10,255,'X');
textout(330,10, 'Y');
setfontsize(12);
textout(10,10,'F(x)=(7*x*x+1.5*x-15)/(2+x)');
 
   While x<-2 do
     begin
         y:=(7*x*x+1.5*x-15)/(2+x);
 
         PutPixel(trunc(x *5 + 320),480-trunc(y*5 +240),15);
         x:=x+ 0.1;
         end;
 
      while  (x>-2) and (x<xmax) do
             begin
         y:=(7*x*x+1.5*x-15)/(2+x);
         PutPixel(trunc(x *5 + 320),480-trunc( y*5 +240),15);
         x:=x+ 0.01;
         end;
 
 ReadKey;
 
end;
Begin
  AppExit := False;
  Vved := False;
  Punkt := 1;
 
  Punkt_Menu;
 
  While AppExit = False Do
  Begin
     Knopka := ReadKey;
     Case Ord(Knopka) Of
        80 : Inc(Punkt);
        72 : Dec(Punkt);
        27 : AppExit := True;
        32 :
        Case Punkt Of
          1 : Punkt_Avtor;
          2 : Punkt_Vvod;
          3: Punkt_Grafik;
          4 : AppExit := True;
        End;
     End;
     If Punkt > 4 Then Punkt := 1;
     If Punkt < 1 Then Punkt := 4;
     Punkt_Menu;
  End;
end.