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
