Помогите, плиз!!!
Совсем запутался в этих укзателях...
Препод послезавтра уходит в отпуск и прощай зачёт!!!
Задача звучит так: Ввести стек значений, найти минимальное и максимальное и поменять их местами.
Function FindMin(head: point): point;
Var min: Integer;
begin
FindMin := nil; min := maxInt;
While head <> nil Do Begin
If head^.number < min Then Begin
min := head^.number; FindMin := head
End;
head := head^.next
End;
end;