Паскаль. Нужно написать программу, задания 2 и 3Срочно прошу помощи

begin
  var a:=ArrRandom(10,-3,9); a.Println(',');
  a:=a.Select((v,i)->i.IsEven?0:v).ToArray; a.Println(',')
end.


4,-1,-2,0,6,8,-2,1,-1,4
0,-1,0,0,0,8,0,1,0,4

begin
  var a:=ArrRandom(5,0,3); a.Println(',');
  var b:=a.Last;
  a.Select((v,i)->(v,i)).Where(t->t[0]+b=2).Select(t->t[1]+1).Println(',')
end.


0,3,0,1,1
4,5