Определить максимальное по абсолютному значению число

[Evgeniy26]

var
  S: String;
  A, Max, Ind : integer;
begin
  max := 0;
  Ind := 0;
  S := Edit1.Text + ',';
  while Pos(',', S) <> 0 do
  begin
      A := StrToInt(Copy(S, 1, Pos(',', S) - 1));
      Delete(S, 1, Pos(',', S));
      if abs(A) > max then begin
        Max := abs(A);
        Inc(Ind)
      end;
  end;
  label1.caption:='Максимальный элемент:'+inttostr(A)+#13+'Порядковый номер:' +inttostr(Ind);

[VeseloffS]

К сожалению этот код работает не корректно, во-первых: Максимальный элемент - он просто выводит последнее число, то есть 0, во-вторых Порядковый номер максимального элемента тоже выводит неверный.

[Evgeniy26]

var
  S: String;
  A, Max, Ind : integer;
begin
  Ind := 1;
  S := Edit1.Text + ',';
  max := Abs(StrToInt(Copy(S, 1, Pos(',', S) - 1)));
  Delete(S, 1, Pos(',', S));
  while Pos(',', S) <> 0 do
  begin
      A := StrToInt(Copy(S, 1, Pos(',', S) - 1));
      Delete(S, 1, Pos(',', S));
      if abs(A) > max then begin
        Max := abs(A);
        Inc(Ind)
      end;
  end;
  label1.caption:='Максимальный элемент:'+inttostr(Max)+#13+'Порядковый номер:' +inttostr(Ind);

[VeseloffS]

Большое спасибо...вроде работает. Единственное только, если максимальный элемент имеет порядковый номер больше чем 6...все равно пишет 6.

[Evgeniy26]

Ввожу: 5,6,7,8,9,10,22,33. Выводит:Максимальнай элемент 33. Порядковый номер 8.

[VeseloffS]

С файлом ExampleMas.rar видно ошиблись, там какая-то другая задача.

Последним в последовательности должен быть 0.

[Evgeniy26]

var
  S: String;
  A, Max, ind, index: integer;
begin
  index := 1;
  ind := 1;
  S := Edit1.Text + ',';
  max := Abs(StrToInt(Copy(S, 1, Pos(',', S) - 1)));
  Delete(S, 1, Pos(',', S));
  while Pos(',', S) <> 0 do
  begin
    Inc(ind);
    A := StrToInt(Copy(S, 1, Pos(',', S) - 1));
    Delete(S, 1, Pos(',', S));
    if abs(A) > max then
    begin
      Max := abs(A);
      index := ind;
    end;
  end;
  label1.caption:='Максимальный элемент:'+inttostr(Max)+#13+'Порядковый номер:' +inttostr(index);

[VeseloffS]

Работает!!!

Большое спасибо за помощь!!!