Нарисовать "Резиновый прямоугольник"

Program ;
uses crt,graphABC;
const f:array[1..3] of string=('about program','start graphic editor','exit');
var t,d,x,y,ent:integer;
a:char;
 
 
{-----------------}
procedure vivod (t:integer);
begin 
clrscr;
for i:=1 to  3 do 
           begin
              gotoxy(trunc((80-lenght(f[i]))/2),i+10);
              if i=t then 
              textcolor(4)
              else
              textcolor(7);
              write(f[i]);
              end;
         end;
         {-------------------------------}
 
         procedure o_prog;
         begin
         clrscr;
         gotoxy(30,1);
         write('Минестерство образования и науки РФ');
         gotoxy(20,2);
         write('Федеральное государственное автономное образовательное учереждение');
         gotoxy(32,3);
         write('высшего профессионального образования');
         gotoxy(15,4);
         write('"Уральский Федеральный Университет имени Первого Президента Б.Н.Ельцина"');
         gotoxy(30,5);
         write('Строительный институт');
         gotoxy(30,6);
         write('Кафедра );
         gotoxy(30,12);
         write('Дисциплина информатика');
         gotoxy(30,13);
         write('работа');
         gotoxy(30,14);
         write('Резиновый прямоугольник');
         gotoxy(30,15);
         write('Паскаль');
         gotoxy(4,17);
         write('имя');
         gotoxy(4,18);
         write('студент');
         gotoxy(4,19);
         write('работа');
         gotoxy(32,25);
         write('год');
         repeat 
         until keypressed;
         end;
         {-----------------------------}
        Procedure Kursor(x,y,n:word);
Begin 
        setpencolor(n);
        line(x-5,y,x+5,y);
        line(x,y+5,x,y-5);
end;
{----------------}
Procedure dvizhenie;
Var x1,y1,x2,y2:integer;
Begin
      ent:=0;
      cleardevice;
      x:=20;
      y:=200;
      repeat
          kursor(x,y,10);
          if keypressed then
          begin
              kursor(x,y,0);
               a:=readkey;
               if a=chr(0) then
                begin
                 a:=readkey;
                 case ord(a) of 
                72:begin y:=y-10;
                 end;
                 80:begin y:=y+10;
                  end;
                  75:begin x:=x-10;
                   end;
                   77: begin x:=x+10;
                    end;
        else
             write('Нажата не стрелка');
          end;
        end
      else 
          case ord(a) of 
           13:begin 
                if ent=0 then
                begin 
                     x1:=getx;
                     y1:=gety;
                     ent:=1;
                  end
             else
                 begin 
                     x2:=getx;
                      y2:=gety;
                     end;
                begin
                     rectangle(x1,y1,x2,y2);
                 end;
              end;
         27:d:=3;
    else 
         begin gotoxy(20,24);
                 writeln('Нажата не стрелка');
                 repeat
                 until keypressed;
               end;
             end;
           end;
   until (x>=490) or (y>=340) or (x<=10) or (y<=10) or (d=3);
 
End;
 
 
   {-------------------------------}
begin
     t:=1;
     repeat
     vivod(t);
     a:=readkey;
     if a=chr(0) then
     begin
          a:=readkey;
          case ord(a) of
          
              72:begin   gotoxy(20,24);
              t:=t-1;
              if  t=0 then 
              t:=3;
   end;    
                         80:begin   gotoxy(20,24);
              t:=t+1;
              if  t=4 then 
              t:=1;
   end;       
else
              begin   gotoxy(20,24);
              writeln('нажата не стрелка');
              repeat
              until keypressed;
              end;
         end;
   end
   else
   case ord(a) of 
                13:case t of 
                        1:   o_prog;
                        2:begin
                                    {Kursor(20,20,10)  ;} dvizhenie;
                        end;
                        3:   d:=3;
              27:d:=3
     else
             begin   gotoxy(20,24);
              writeln('нажата не стрелка');
              repeat
              until keypressed;
              end;
          end;
     end;
            until d=3;
end.