Минимальное из трёх чисел x,y,z

[ofenod]

if (x<y)and(x<z) then writeln('x');
if (y<x)and(y<z) then writeln('y');
if (z<x)and(z<y) then writeln('z');

Как сделать этот код более компактным?

[Летучий_СкилетиК]

if (x<y)and(x<z) then writeln('x') else
if (y<x)and(y<z) then writeln('y')else writeln('z');

[RUSt88]

program p;

var
  M: integer;

function max(const a: integer; const b: integer): integer;
begin
  if (a > b) then
    result := a;
  else
    result := b;
end;

begin
  M := max(15, max(12, 19));
  writeln(M);
end;

[Вадим Мошев]

А вот и мой вариант:

min:=x;
if y < min then min:=y;
if z < min then min:=z;
//......