Составить программу рисования вертикальной линии​: на помощь быстрее

uses crt; var c:char;     x,y,i,j:integer; begin writeln('Нажатие клавиш g/G горизонтальная линия, v/V вертикальная'); writeln('очистка экрана клавиша пробел, выход нажатие клавиши Esc'); writeln('для начала нажмите Enter'); readln; clrscr; hidecursor; x:=1; y:=1; repeat  if keypressed then   begin    c:=readkey;    case c of    'g','G':begin            gotoXY(1,y);            for i:=1 to 79 do            write('_');            y:=y+1;            end;    'v','V':begin            for i:=1 to 24 do             begin              gotoXY(x,i);              write('|');             end;            x:=x+1;            end;     #32:clrscr;     #27:exit;     end;   end; until c=#27; end.