Заполнить массив из 10 элементов с клавиатуры целыми числами. Найдите индексы элементов, больше 5 (pascal)

Var   a:array[1..10] of integer;   i,c:integer; Begin   for i:= 1 to 10 do  Begin      write('Введите ',i,' - ый элемент массива ');      readln(a[i]);    End;  Write('Индексы элементов, больших 5 - (');  for i:= 1 to 10 do  if a[i]>5 then Begin  write(i,' '); c:=1;  end;  if c=0 then write('Таких нет)') else write(')'); end.