ayuda con un pequeño problema

[ecfisa]

Hola GiovaniP.

Totalmente de acuerdo con el amigo Caral, te dió la forma más simple y eficiente de hacerlo: dos variables.
De ese modo te ahorras el ordenamiento; necesario si tomás los datos en conjunto.

Te ejemplifico como podés hacer la evaluación de mínimo y máximo. Los valores, en lugar de ser ingresados,
pueden ser tomados de un ListBox, etc.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Num,Max,Min: string;
begin
  Num:= InputBox('Numero','Cadena vacía finaliza','');
  Min:= Num;
  Max:= Num;
  while Num <> '' do
  begin
    if (Num > Max)and(Num>'') then Max:= Num;
    if (Num < Min)and(Num>'') then Min:= Num;
    Num:= InputBox('Numero','Cadena vacía finaliza','');
  end;
  ShowMessage('Mínimo: '+Min+ #10#13 + 'Máximo: '+Max);
end;

Nota: Te dejo las verificaciones de ingreso como tarea...

Saludos