найти первое положительное число

[drylozav]

нужно найти в массиве первое положительное число , а оно у меня находит последнее .
procedure TForm3.btn2Click(Sender: TObject);
var
m,i: Integer;
f: TextFile;
flag:boolean;
begin
flag:=false;
mmo1.Lines.Clear;
assignFile (f,'c:\file1.txt');
reset(f);
while not eof(f) do
begin
while not Eoln(f) do
begin
read(f,i);
if (i<0) then begin
m:=i;
flag:=true;
mmo1.Text:=mmo1.Text+' '+IntToStr(i);
end;
Readln(f);
mmo1.Lines.Add('');
end;
CloseFile(f);
mmo1.Lines.Add('первое отрицательное ='+inttostr(m));

[Прик]

Определился бы сначала с целевой функцией (что все таки определять положительное или отрицательное число). Вначале поста пишем "первое положительное", в коде "первое отрицательное". Хохма такая да?
Если все же отрицательное, то надо бы поправить код:

var
  m,i: Integer;
  f: TextFile;
  flag:boolean;
begin
  flag:=false;
  mmo1.Lines.Clear;
  assignFile (f,'I.txt');
  reset(f);
  while not eof(f) do begin
    read(f, i);
    mmo1.Lines.Add(IntToStr(i));
    if not flag and (i < 0) then begin
      m := i;
      flag := true;
    end;
  end;
  if flag then
    mmo1.Lines.Add('ПЕРВОЕ ОТРИЦАТЕЛЬНОЕ И НИ САНТИМА МЕНЬШЕ ='+inttostr(m))
  else
    mmo1.Lines.Add('Нет отрицательных чисел);
  CloseFile(f);
end;

[BeJIuKuu_Hexo4yxa]

drylozav, добавь сравнение с flag в условии while. Иначе файл до конца просматривается и ты выводишь действительно последнее положительное/отрицательное