Турбо паскаль пожалуйста укажите ошибки

задача точка на экране нажимаем клавишу W точка двигаеться вверх S вниз A влево D в право вот как я началал uses graph, CRT; VAR device, Mode : Integer; x, y : integer; W : Char; procedure lev; begin device:=0; InitGraph(Device, Mode, 'C:\TP\BGI'); repeat x:=320; setcolor(white); putpixel(x, 240, white); setcolor(black); putpixel(x, 240, black); x:=x-2 until x<3; readLN; closeGraph; End; procedure prav; begin device:=0; InitGraph(Device, Mode, 'C:\TP\BGI'); repeat x:=320; setcolor(white); putpixel(x, 240, white); setcolor(black); putpixel(x, 240, black); x:=x+2 until x>640; readLN; closeGraph; End; procedure niz; begin device:=0; InitGraph(Device, Mode, 'C:\TP\BGI'); repeat y:=240; setcolor(white); putpixel(320, y, white); setcolor(black); putpixel(320, y, black); y:=y+2 until y<480; readLN; closeGraph; End; procedure verh; begin device:=0; InitGraph(Device, Mode, 'C:\TP\BGI'); repeat y:=240; setcolor(white); putpixel(320, y, white); setcolor(black); putpixel(320, y, black); y:=y-2 until y<3; readLN; closeGraph; End; begin If readkey:= 'W' then verh ????что дальше и правильно ли я делаю end. укажите на ошибки у меня все открваеться в текстовом режиме как правильно надо написать такую программу кто правильно напишит таму доллар