Кнопка закрытия диалогового окно без внесения выполненных изменений(6 букв)

Отмена   у нас было так) 100 %

Uses crt; var i,a: integer;       begin                for i: =1 to 16 do                        begin                              textcolor(i);                               a: =random(50);                                 write(a);                               sound(i*100);                                 delay(5000);                               nosound;                       end;     readkey; end.

Программа : uses crt; const n=10; type vec=array [1..n] of integer ; var i, max: integer;       a: vec ; begin clrscr; randomize; writeln (' old massiv: '); for i: =1 to n do       begin             a[i]: =-5+random(15);             write (a[i]: 4);       end; writeln; max: =a[1]; for i: =2 to n do         if a[i]> max then max: =a[i]; writeln; writeln(' max = ', max); writeln (' new massiv: '); for i: =1 to n do   begin       if a[i] > 0 then a[i]: =max;       write (a[i]: 4);   end; writeln; readln; end.