Написать программу, которая вводит с клавиатуры непомерный массив из 5 целых чисел и выводит количество ненулевых элементов. Перед вводом каждого элемента на экране должна появляться подсказка с его номером — Pascal(Паскаль)

program ololo;
uses crt;
const
n = 5;
var
m: array[1..n] of integer;
i,count: integer;
begin
count:=0;
for i:=1 to n do
      begin
       Writeln ('Введите',i,'-й элемент');
       Readln (m[i]);
       if m[i]<>0 then count:=count+1;
      end;
 
    Writeln('Ненулевых значений:',count);
end.