Составить программку на Паскале. Дан одномерный массив целых чисел из N

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.IndexesOf(x-gt;x mod 10=0);
  if s.Count=0 then Writeln('Нет частей, заканчивающихся на 0')
  else begin
    Write('Номера частей, заканчивающихся на 0: ');
    s.Select(i-gt;i+1).Println
    end
end.

Образцы
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет частей, заканчивающихся на 0

n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, заканчивающихся на 0: 11 13

const n = 10;

var a:array[1..n] of integer;

i:integer;

begin

  for i:=1 to n do readln(a[i]);

  writeln;

  for i:=1 to n do 

  if a[i] mod 10 = 0 then writeln(i);

end.