Найди все четные по значению элементы массива. вывести на экран значение элементов и их индекс. ввод элементов массива с клавиатуры. программа пишется на языке паскаль

Var    a: array[1..5]of integer;    i: integer;
begin
  for i := 1 to 5 do 
   read(a[i]);   
  for i := 1 to 5 do        
   if ((a[i] mod 2) = 0) then writeln('число - ',a[i], ' индекс - ',i);
end.
abs pascal