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

Program prog;Uses crt;var a: array [1..5] of integer;    i,k: integer;beginclrscr;for i:=1 to 5 do    begin    write('a[',i,'] = ');    readln(a[i]);    if (a[i]<>0) then    inc(k);    end;    writeln;    write('k = ', k);end.