Нужна программа что бы рисовала ракету по одному нажатию кнопки (лазарус)

Const   n = 10; var   x: array[1..n] of integer;   i, k: integer; begin   randomize;   writeln('элементы массива');   k : = 0;   for i : = 1 to n do   begin       x[i] : = random(51)-25;       write(x[i]: 4);       if x[i]> 0 then inc(k)   end;   writeln;   writeln('количество положительных элементов массива равно ',k); end. тестовое решение: элементы массива     1  13  -1    0 -25    7 -15 -21  14    9 количество положительных элементов массива равно 5

1. современное решение pascalabc.net 3.2, сборка 1417 от 28.03.2017 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('введите двухзначное число: ');   writeln('максимальная цифра ',max(n div 10, n mod 10)) end. 2. школьное решения уровня турбопаскаль 1983г. var   n,d,e,max: integer; begin   write('введите двухзначное число: ');   read(n);   d: =n div 10;   e: =n mod 10;   if d> e then max: =d   else max: =e;   writeln('максимальная цифра ',max) end. 3. пример работы обоих программ (одинаковый) введите двухзначное число: 37 максимальная цифра 7