Нужно вытащить элемент (паскаль)

[smail1701]

вообщем есть цикл

f:=1;
max:=Baza[kol-f];
for f:=2 to 3 do begin
p:=Baza[kol-f];
if p>max then max:=p;
end;

Как отсюда вытащить переменную f?

Заранее спасибо!

[Stilet]

Куда вытащить?

[unbanned]

Сообщение от smail1701

Как отсюда вытащить переменную f?

если я правильно понял, то нужно получить значение f при выполнении условия в цикле? если так. то

var pi:=integer;
f:=1; 
  max:=Baza[kol-f];
  for f:=2 to 3 do begin
  p:=Baza[kol-f];
  if p>max then begin 
max:=p;
pi:=f;// вот в эту переменную запишется значение f. дальше работай с ней
end;
  end;

если нет, то конкретней задавай вопрос... и желательно с пояснениями))

и вобще честно говоря непонятно зачем тут цикл)))

[smail1701]

unbanned, спасибо )

Извиняюсь, что неточно сформулировала, что мне нужно. Необходимо было вытащить переменную f, при которой находился max.
Вроде работает )))
Так что прям спасибо большое!