Помогите срочно пожалуйста! В программе не работает read!, Помогите справить, так чтобы можно было нормально вводить значения! Опции

[ketty]

program raschetGDZS;

uses vcl, crt;
var form1: form;
    button1: button;
    pvx, tvx, pl: integer;
    
procedure dreger;
begin
clrscr;
window(0,0,0,0);
writeln('Введите давление входа:');
read(pvx);
end;

procedure Button1OnClick;
begin
Form1.Hide;
dreger;
end;

procedure InitControls;
begin
  Form1:= Form.Create(10,10,300,300);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Аппараты','');
  Button1:= Button.Create(Form1,112,40,75,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Дрегер','');
  Button1.OnClick:=Button1OnClick;
  
    Form1.Show;
end;

begin
  InitControls;
end.