Нужно составить программу в паскаль. 1. в массиве 10 чисел. положительные числа замените их номерами. вывести на экран в столбик изменившийся массив. 2. в массиве м(8) найдите сумму элементов, больших 12

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('-'*10);
  var a:=ArrRandom(10,-99,99); a.Println;
  a:=a.Select((x,i)->x>0?i+1:x).ToArray; a.Println(NewLine);
  Writeln('-'*10);
  var m:=ArrRandom(8,-10,30); m.Println;
  Writeln('s=',m.Where(x->x>12).Sum)
end.

Тестовое решение

26 -63 12 85 9 53 57 36 -45 30
1
-63
3
4
5
6
7
8
-45
10

11 -4 14 6 24 0 -8 10
s=38

Файл в приложении