Взаданном массиве m(15) заменить нулевые элементы квадратами их

Внимание! Если программа не работает, обновите версию Pascal !
begin

var mas:=ArrRandom(15,0,10); mas.Println;

mas.Select((v,i)-> v =0 ? i*i:v).Println;

end.