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

[nadja yak]

ПРИВЕТ ВСЕМ!!
решаю тут задание на дом с массивами.суть её ----
определение количества отрицательных элементов в массиве вывода их на экран с индексом или сообщение о их отсутствии.
я попыталась!! честным образом. но не смогла. выводит какой то бред.
Скажите ,пожалуйста, в чем ошибки?

program otriz;
uses crt;
var m: array[1..7] of integer;
i,k: integer;
 begin
clrscr;
for i:=i to 7 do begin
writeln('m [',i,']=', m[i]);
readln(m[i]);
end;
k:=0;
    for i:=i to 7 do begin
if m[i]<0 then begin
k:=k+1;
writeln('m[',i,']=' , m[i]);
end
end;
if k=0 then begin
writeln(' нет отрицательных', k);
end
else writeln('колличество отрицательных = ', k);
readln
end.

заранее спасибо

Сообщение отредактировано: Lapp - 15.03.2011 1:05

[-TarasBer-]

for i:=i to 7 do begin

замени на

for i := 1 to 7 do begin

[nadja yak]

for i:=i to 7 do begin

замени на

for i := 1 to 7 do begin
А СмЫСЛ??