A formatted Pascal program

Program Recomend;//•Начало
Uses CRT { Подключить модуль CRT } ;

var ext,f,e,F,menu:integer;
  name,d,b,c,t:string;
  Tit:real;
  label main,p1,n1,a1;

Begin
  main:
  clrscr;
  Gotoxy(30,1);
  write('▌DAMNUM▌');
  Gotoxy(1,3);
  write('Выбирете опцию:');
  Gotoxy(4,5);
  Write('•1.Играть');
  Gotoxy(4,7);//Не работает
  Write('•2.Параметры');// it's too
  Gotoxy(4,9);
  Write('•0.Выход');
  Gotoxy(6,11);
  Write('Ввод: ');
  Gotoxy(12,11);
  Readln(menu);

  Case menu of
    1:
    begin//▌▀▬3▀▀▀
      Tit:=16;
      Clrscr;//Cцена 1 "Где я?"
      Gotoxy(28,10);
      //FontType(Tit);
      write('"DAMNUM"');
      delay(4324);
      clrscr;
      Gotoxy(10,10);
      Write('Вы проснулись от лая собак.');
      Delay(3000);
      Gotoxy(12,12);
      Write('Вы встали с странной кровати.');
      Delay(3000);
      Gotoxy(14,14);
      Write('Головная боль не даёт вам норамально мыслить.');

      delay(3000);
      Clrscr;
      Gotoxy(13,13);
      Write('Вы: Где я?');
      Delay(2000);
      clrscr;
      Gotoxy(13,13);
      Write('Вы: Как я сюда попал?');
      Delay(2000);
      clrscr;
      Gotoxy(13,13);
      Write('Почему это место похоже на темницу?');
      p1: clrscr;
      gotoxy(1,18);
      Write('▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬');
      Gotoxy(18,16);
      write('Нажмите "5" чтобы осмотрется.');
      Gotoxy(19,20);
      write('Ввод: ');

      readln(f);
      If (f=5) then goto n1 ;
      If (f>5) or (f<6) then goto p1;

      n1:clrscr;
      gotoxy(5,10);
      Write('Осмотрев комнату вы заметели: стол, окно, дверь.');
      gotoxy(1,18);
      Write('▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬');
      gotoxy(19,19);
      write('1. Осмотреть на стол');
      Gotoxy(19,20);
      write('2. Посмотреть в окно');
      Gotoxy(19,21);
      write('3. Взаимодействовать с дверью');
      Gotoxy(19,22);
      write('Ввод: ');
      Gotoxy(25,22);
      readln(e);

      CASE e of
        1: Begin
          clrscr;
          gotoxy(5,10);
          write('Подойдя к столу, вы замечаете оборваный лист');
          gotoxy(1,18);
          Write('▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬');
          gotoxy(19,19);
          write('1.Осмотреть оборваный лист');
          gotoxy(19,20);
          write('2.ВЕРНУТСЯ');
          Gotoxy(19,21);
          write('Ввод: ');
          Gotoxy(25,22);
          readln(F);
          case F of
            1:Begin
            end;

            2: Begin
              clrscr;
              goto n1;

            end;

          end;
        end;

      end;

      2:begin//▐▐▐▐▐▐▐▐

      end;

      0:begin//••777MM•••777••777
        clrscr;
        Gotoxy(20,13);
        Write('Вы действительно хотите выйти?');
        Gotoxy(30,15);
        write('1.ДА 2.НЕТ');
        Gotoxy(33,17);
        readln(ext);
        If (ext=1) then exit else goto main ;
      end;
    End;
End.