Алгоритм нахождения меньшего из двух чисел:

function findMin(a, b: Integer): Integer;
begin
if a < b then
findMin := a
else
findMin := b;
end;

Алгоритм нахождения меньшего из трех чисел:

function findMin(a, b, c: Integer): Integer;
begin
if (a < b) and (a < c) then
findMin := a
else if (b < a) and (b < c) then
findMin := b
else
findMin := c;
end;