Ввести в память машины массив А

proram z1; var i, k, n: integer; a: array (1… 20] of real; begin write ('введите N='); readln (n); for i: =1 to n do readln (a[i]); k: =0; for i: =1 to n do if a[i] < 0 then k: =k+1; writeln ('кол-во отрицательных=', k) end.