Pascal game screen test

program NewPascalGame;
uses crt;
var
  text: String;
  weapon_name: String;
  player_name: String;
  enemy_weapon: String;
  enemy_name: String;
  i, battleHp: Integer;
  Grey: Integer;
  generator: android_graphics_Color;

procedure screen(text: String);
begin
  textBackground(Blue);
  for i := 0 to 50 do write('#');
  textBackground(Black);
  writeln(text);
  textBackground(Blue);
  for i := 0 to 50 do write('#');
  textBackground(Black);
end;

procedure overScreen;
begin
  textBackground(Red);
  for i := 0 to 50 do write('#');
  textBackground(Black);
  for i := 0 to 20 do write(' ');
  writeln('GAME OVER!');
  textBackground(Red);
  for i := 0 to 50 do write('#');
  textBackground(Black);
end;

procedure hpScreen(hp: Integer);
begin
  if hp <= 100 then textBackground(Green);
  if hp <= 63 then textBackground(Yellow);
  if hp <= 30 then textBackground(Red);
  for i := 0 to 50 do write('#');
  textBackground(Black);
  if hp <= 100 then textColor(Green);
  if hp <= 63 then textColor(Yellow);
  if hp <= 30 then textColor(Red);
  writeln(hp);
  textColor(white);
  if hp <= 100 then textBackground(Green);
  if hp <= 63 then textBackground(Yellow);
  if hp <= 30 then textBackground(Red);
  for i := 0 to 50 do write('#');
  textBackground(Black);
  if hp <= 0 then
  begin
    clrscr;
    overScreen;
  end;
  textColor(White);
end;

procedure weaponScreen(weapon: String);
begin
  Grey := generator.argb(255, 127, 127, 127);
  textBackground(Grey);
  for i := 0 to 50 do write('#');
  textBackground(Black);
  writeln('Weapon: ', weapon);
  textBackground(Grey);
  for i := 0 to 50 do write('#');
  textBackground(Black);
end;

procedure gameScreen(activeHp: Integer);
begin
  screen('YOUR ENEMY HIT YOU! -10HP');
  writeln;
  weaponScreen('sword');
  writeln;
  hpScreen(activeHp);
end;

begin
  clrscr;
  battleHp := 100;
  for i := 0 to 100 do
  begin
    clrscr;
    gameScreen(battleHp);
    battleHp := battleHp - 1;
    delay(100);
  end;
  readln;
end.