Д/З для группы Фимыча на 4.12

uses max_CRT;
var X,Y      :integer;               
    vx,vy    :integer;                 
    ch       :char;                     
    exit     :boolean;               
begin
     clrscr;
     X:=1;
     Y:=1;
     vx:=2;
     vy:=1;
     exit:=true;
     if keypressed then
        ch:=readkey;
     while exit do
     begin
          textcolor(14);
          gotoxy(X,Y);               
          write('*');
          delay(250);
          gotoxy(X,Y);
          write(' ');               
          if keypressed then
          begin
          ch:=readkey;
          if (ch='a')then begin vx:=-2; vy:=0;  end;
          if (ch='d')then begin vx:=2;  vy:=0;  end;
          if (ch='w')then begin vy:=-1; vx:=0;  end;
          if (ch='s')then begin vy:=1;  vx:=0;  end;
          if (ch='q')then begin vx:=-2; vy:=-1; end;
          if (ch='e')then begin vx:=2;  vy:=-1; end;
          if (ch='z')then begin vy:=1;  vx:=-2; end;
          if (ch='c')then begin vy:=1;  vx:=2;  end;
          if ch='k' then
          begin
               gotoxy(X,Y+2);
   writeln('*****');
               gotoxy(X,Y+1);
               writeln('*****');
                gotoxy(X,Y);
               writeln('*****');
               
          end;
          if ch='t' then
          begin
               gotoxy(X,Y+2);
               writeln('*****');
               gotoxy(X+1,Y+1);
               writeln('***');
                gotoxy(X+2,Y);
               writeln('*');
             
          end;
          end;                     
          X:=X+vx;               
          Y:=Y+vy;             
          if (X<=1) or (X>=79) then vx:=-1*vx;   
          if (Y<=1) or (Y>=25) then vy:=-1*vy; 
          if (ch='`')or(ch=' ')then exit:=false;
     end;                             
     readln;
end.