Задача на Массив

[Uoga]

Помогите с этой задачкой, пожалуйста!

Задан массив целых чисел a(n). Найти номера элементов, значений которых равно нулю. 10<=n<=20

[MyLastHit]

const n=15;
var  a:array[1..n] of real;
     i:integer;
     s:string;
begin
  for i:=1 to 15 do
  begin
    writeln('Введите значение ', i, '-ого элемента');
    readln(a[i]);
    if a[i]=0 then s:=s+inttostr(i)+',';
  end;
  Writeln(s);
  readln;
end.