Игры с использованием процедур и функций

program test;
  uses crt;
  var
  A,B,C,D,E,T:real;
  var g,z : integer;
begin
    repeat
    writeln('Выберите игру');
    writeln('1.Вопрос-ответ');
    writeln('2.Угадай число');
    writeln('0.Выход');
    readln(z);
    if (z<0) or (z>3) then
    writeln('Ошибка 404')
    else
      case z of
        1: begin
        writeln(' Как называется столица России 1) Новгород 2)Москва 3)Тагил 4)Самара ');
        readln(g);
  writeln('Ваш ответ ',g) ;
  if g=2 then
begin
writeln ('правильно ')
end
else
  begin
  writeln('Не правильно')
  end;
    begin
    writeln(' Сколько планет в нашей солнечной системе 1) 5 2) 7 3)8 4)10 ');
    readln(g);
    writeln('Ваш ответ ',g) ;
    if g=3 then
      begin
      writeln ('правильно ')
      end
    else
        begin
        writeln('Не правильно')
        end;
    end;
            end;
            2: 
            begin
textbackground(0);
clrscr;
D:=0;
T:=10;
E:=0;
while E=0 do begin
if E=1 then E:=E-1;
A:=0;
B:=random(100);
if A=-1 then E:=E+1;
while A=0 do begin
clrscr;
textcolor(15);
write('Угадай число (0-100) : ');
readln(C);
textcolor(red);
if C>100 then begin writeln('СЛИШКОМ БОЛЬШОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;
if C<0 then begin writeln('СЛИШКОМ МАЛЕНЬКОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;
textcolor(6);
if B>C then writeln('нет, я загадал число побольше...') else T:=T-1;
if B<C then writeln('нет, я загадал число поменьше...') else T:=T-1;
textcolor(10);
if B=C then begin writeln('да ты угадал!'); A:=A-1; end;
if B=C then begin D:=D+1; T:=T+9; end;
if T<=0 then A:=A+1;
if T<=0 then E:=E+1;
textcolor(4);
if T<=0 then writeln('ТЫ ПРОИГРАЛ!!!');
textcolor(green);
if B=C then writeln('+9 жизней');
textcolor(4);
if B>C then writeln('-1 жизнь');
if B<C then writeln('-1 жизнь');
textcolor(9);
writeln('твои очки: ',D);
writeln('твои жизни: ',T);
textcolor(yellow);
writeln('нажми ENTER');
readln;
end;
end;
end;
      end;
until z=0;
end.