После воспроизведения музыки ничего не происходит

uses graphABC,System;
type
  boolans = array [1..60] of array[1..10] of boolean;
  
procedure sound;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='ответ пр.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
    System.Windows.Forms.Application.Run(); 
    end;
function qestion(Max,nq,np:integer; y:boolans): boolans;
var 
  a,b,ans:integer;
begin 
clearwindow;
  result:=y;
  a:=PABCSystem.Random(max+1);
  b:=PABCSystem.Random(10+1);
  textout(0,0,a+'*'+b+'=');
  readln(ans);
  clearwindow;
  if a*b=ans then
  begin
    result[np][nq]:=true; textout(0,0,'это правильный ответ');
  sound;
end;
 
end;
 
var 
  ans:boolans;
  i, i2,i3,max,trueans:integer;
  name:array [1..61]of string;
  y:array [1..60] of integer;
  
begin
  setfontsize(24);
  setwindowtitle('тест таблицы умножения v2.0');
  setwindowsize(1000,480);
  i:=0;
  repeat
  i:=i+1;
  textout(0,0,'как вас зовут');
  readln(name[i]);
  clearwindow;
  textout(0,0,'до скольки вы хотите проветить таблицу умножения');
  readln(max);
  clearwindow;
  trueans:=0;
for i2:= 1 to 10 do ans:=qestion(max,i2,i,ans);
for i2:= 1 to 10 do begin if ans[i][i2]=true then trueans:=trueans+10;end;
textout(0,0,trueans+'% правильных ответов');
until i=1;
 
end.

until not i=1;

    System.Windows.Forms.Application.Run();

var
  i: integer;
 
begin
  i := 5;
  writeln(not i = 1);
  writeln(not(i = 1));
  readln
end.

begin
  var i: integer = ReadInteger;
  writeln(not i);
end.

begin
  write('Введите i: ');var i: integer = ReadLnInteger;//2
  write('Введите j: ');var j: integer = ReadLnInteger;//2
  writeln('noti: ',not i);//-3
  writeln('notj: ',not j);//-3
  writeln(' and: ',i and j);//2
  writeln('  or: ',i or j);//2
  writeln(' xor: ',i xor j);//0
end.