нужно найти в массиве первое положительное число , а оно у меня находит последнее.
Код:
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));
Admin: Пользуемся тегами!
подскажите , что не так
