[dr. F.I.N.]

Код:

//-------finction-----------
function MaxValue(ar: array of integer): Integer;
var
  i: Itneger;
begin
  Result := Low(ar);
  for i := Low(ar) to High(ar) do
  if Result > ar[i] then
  Result := ar[i];
end;

//-------usage-----------
ShowMessage(IntToSrt(MaxValue(a, b, c, d...,y,z)));

На коненке.