Решить . pascal дан массив целых чисел к(15), найти и вывести на печать отрицательные элементы из этого массива.

Program chik;
var k:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do
read(k[i]);
for i:=1 to 15 do
if(k[i]<0)then write(k[i],' ');
end.