Информатика помогите срочно!!!

program v78;
var
n, m, k, i: integer;
const
a: array [1..7] of integer = (-1, 7,
-3, -6, 0, 1, 2);
begin
m := 0;n := 0;k := 0;i := 0;
for n := 1 to 7 do
if a[i] > 0 then m:= m+1;
if a[i] < 0 then i:= n+1;
if a[i] = 0 then k:= k+1;
writeln('m=', m, '', 'n=', '', 'k=', k)
end.