Ввод текста в graphABC

uses graphABC;
Begin
  setwindowsize(1280,680);
  FloodFill(30,30,clGoldenrod);
  rectangle(540,130,1140,180);
  rectangle(540,250,1140,300);
  rectangle(850,370,1140,470);
  rectangle(540,370,840,470);
  SetFontColor(clGold);
  SetFontSize(20);
  textout (500,50,'Авторизация');
  textout (945,400,'Выход');
  textout (650,400,'Вход');
  textout (400,135,'Логин');
  textout (400,255,'Пароль');
End.

uses graphABC;
var
x : string;
begin 
readln (x);
textout (500, 50, x);
end.

uses graphABC;
var avt, par : string;
Begin
  setwindowsize(1280,680);
  FloodFill(30,30,clGoldenrod);
  rectangle(540,130,1140,180);
  rectangle(540,250,1140,300);
  rectangle(850,370,1140,470);
  rectangle(540,370,840,470);
  SetFontColor(clGold);
  SetFontSize(20);
  textout (500,50,'Авторизация');
  textout (945,400,'Выход');
  textout (650,400,'Вход');
  textout (400,135,'Логин');
  textout (400,255,'Пароль');
  readln (avt);
  textout (700, 135, avt);
  readln (par);
  textout (700, 255, par);
End.

uses
  GraphABC;
 
var
  w, w2: integer;
  boollogin, boolpass: boolean;
  login, password: string;
 
procedure Vvod(Key: integer);
begin
  case key of
    //------------------------------------
    48..57, 65..90, 97..122: // Условие нажатия на символьные клавиши
      begin
        SetBrushColor(clWhite);
        if boollogin then begin login := login + chr(key);TextOut(w2 - 80, 142, login); end;
        if boolpass then begin password := password + chr(key);TextOut(w2 - 80, 255, password); end;
      end;
    // ----------------------------------
  
    // Условия нажатия на Delete и т.п. - можно прописать
  
  end;
end;
 
 
procedure ClickPlase(x, y, m: integer);
begin
  if (x > w2 - 90) and (x < w2 + 250) and (y > 130) and (y < 180) then // Клик по полю Логин
  begin
    boollogin := true;
    boolpass := false;
    OnKeyDown := Vvod;
  end;
  
  if (x > w2 - 90) and (x < w2 + 250) and (y > 250) and (y < 300) then // Клик по полю Пароль
  begin
    boollogin := false;
    boolpass := true;
    OnKeyDown := Vvod;
  end;
  
  if (x > w2 - 90) and (x < w2 + 70) and (y > 350) and (y < 400) then // Клик по кнопке Вход
  begin
    // Вход
    ClearWindow;
    WriteLn('Логин: ', login, ' Пароль: ', password, ' Тут должна выполняться подпрограмма входа');
    x := 0;
  end;
  
  if (x > w2 + 90) and (x < w2 + 250) and (y > 350) and (y < 400) then // Клик по кнопке Выход
  begin
    // Выход
  end;
  
  if boollogin then
  begin
    SetBrushColor(clWhite);
    Rectangle(w2 - 90, 130, w2 + 250, 180);
    TextOut(w2 - 80, 142, login);
  end
  else
  begin
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 130, w2 + 250, 180);
    TextOut(w2 - 80, 142, login);
  end;
  
  
  if boolpass then
  begin
    SetBrushColor(clWhite);
    Rectangle(w2 - 90, 250, w2 + 250, 300);
    TextOut(w2 - 80, 255, password);
  end
  else
  begin
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 250, w2 + 250, 300);
    TextOut(w2 - 80, 255, password);
  end;
end;
 
procedure Authorizing;
  
  procedure Otrisovka;
  begin
    w := WindowWidth; // w = ширина окна
    w2 := round(w / 2);
    ClearWindow(RGB(210, 173, 0));
    SetFontSize(18); 
    SetBrushColor(RGB(210, 173, 0));
    TextOut(round(w2 - TextWidth('АВТОРИЗАЦИЯ') / 2), 50, 'АВТОРИЗАЦИЯ');
    TextOut(w2 - 100 - TextWidth('Логин:'), 142, 'Логин:');
    TextOut(w2 - 100 - TextWidth('Пароль:'), 255, 'Пароль:');
    SetPenWidth(2);
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 130, w2 + 250, 180); //  Поле ввода логина
    Rectangle(w2 - 90, 250, w2 + 250, 300); //  Поле ввода пароля
    Rectangle(w2 - 90, 350, w2 + 70, 400); // Кнопка Вход
    Rectangle(w2 + 90, 350, w2 + 250, 400); // Кнопка Выход
    Textout(w2 - 10 - round(TextWidth('ВХОД') / 2), 362, 'ВХОД');
    Textout(w2 + 170 - round(TextWidth('ВЫХОД') / 2), 362, 'ВЫХОД');
  end;
 
begin
  Otrisovka;
  OnMouseDown := ClickPlase;
end;
 
begin
  SetWindowSize(800, 600);
  Authorizing;
  OnResize := Authorizing;
end.