задача по массивам.

[D1zz1]

Помогите найти ошибку в коде по программе. Задание состояло в том что надо написать такую программу, чтоб отвечала на вопрос: правда ли что среди чисел имеются отрицательные числа? ответ в виде слов "да" или "нет".
Программа выдает на любые значения ответ "нет", и я не могу понять ошибку, подскажите что нужно исправить

const N = 100;
  var a:array[1..N] of integer;
  i, m: integer;
  flag: boolean;
begin
  m:= N;
  flag:= false;
  while(m >= N) do begin
    Writeln('Vvedite kolichestvo chisel, ono dolzhno bit menwe 100');
    Readln(m);
  end;
  for i:= 1 to m do begin
    Writeln('Vvedite ', i, ' chislo');
    Readln(a[i]);
    if (a[i]< 0) then flag:= true;
    end;
    Writeln('Imeyutsya li sredi chisel otricatelniye?');
    if (flag = true) then
      Writeln('DA')
    else Writeln('NET');
    Readln;
end.

[Alex11223]

Writeln('Vvedite kolichestvo chisel, ono dolzhno bit menwe 100');
Readln(m);

А зачем это в каком-то непонятном цикле?оО

if (flag = true) == если масло масляное
Просто if(flag)

А ошибки что-то не вижу. Сейчас запустил с массивом 5 4 -3 2 1 и выдало "да" в ПаскальАБС. Мб ваш компилятор не переваривает "масло масляное".

[D1zz1]

с нас требуют чтоб в программе подробно расписывалось что вводится и что находится, вот и вынуждены писать такую муть в программах=(

[Alex11223]

Какую муть? Что вынуждены? Вы о чем?)
Если про первый вопрос, то я не понял какую роль выполняет цикл while (m >= n) .

[D1zz1]

хм, проверил программу в PABC все работает... Но почему не работает в TP7...

[Alex11223]

if (flag = true) == если масло масляное
Просто if(flag)

А ошибки что-то не вижу. Сейчас запустил с массивом 5 4 -3 2 1 и выдало "да" в ПаскальАБС. Мб ваш компилятор не переваривает "масло масляное".

if(flag) попробуйте.

[Valio]

Всё должно работать, "масло масляное" роли никакой не играет. Можно писать и так и сяк.