Задание 2. Разработайте скрипт с анимацией и событиями, используя костюмы.

Сценарий анимации: Акула гонится за рыбкой, если догоняет рыбку то программа останавливается ЭТО СОР ПО ИНФАРМАТИКЕ​

Program pr; var   arr: array[1..5] of array[1..5] of integer;   max, nmax: integer; begin   randomize;     {формирование массива}   for var i : = 1 to 5 do       for var j : = 1 to 5 do           arr[i][j] : = random(20) - 10;             {показ массива}   for var i : = 1 to 5 do       for var j : = 1 to 5 do           write(arr[i][j], ' ');   writeln();     {поиск максимального элемента}   max : = arr[1][1];   for var i : = 1 to 5 do       for var j : = 1 to 5 do           if (max < = arr[i][j]) then max : = arr[i][j];     {подсчет максимальных элементов}   nmax : = 0;   for var i : = 1 to 5 do       for var j : = 1 to 5 do           if (arr[i][j] = max) then nmax : = nmax + 1;             writeln('максимальный элемент: ', max);   writeln('количество таких элементов: ', nmax); end.