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

Спасибо.

Program kl;var a:array[1..15] of real;i:integer;k:real;begink:=0;for i:=1 to 15 dobeginreadln(a[i]);if a[i]<0 thenbegink:=k+1;end;end;writeln('кол-во отрицательных элементов=',k);end.