Как сравнить несколько значений ?

     if (a>b) and (a>c) then max:=a;
     if (b>a) and (b>c) then max:=b;
     if (c>a) and (c>b) then max:=c;
     if (a<b) and (a<c) then min:=a;
     if (b<a) and (b<c) then min:=b;
     if (c<a) and (c<b) then min:=c;

if a<b then s:=a else s:=b;
if s>c then s:=c
if a<b then max:=b else max:=a
if max<c then max:=c

ar
a,b,c:integer;
function min(a,b:integer):integer;
begin
if a<b then result:=a;
if b<=a then result:=b;
end;
begin
readln(a,b,c);
writeln('min');
writeln(min(min(a,b),c));
end.

var
  a,b,c:integer;
{ôóíêöèÿ íàõîæäåíèÿ ìèíèìóìà äâóõ ÷èñåë}
function min(a,b:integer):integer;
begin
  if a<b then
    min:=a;
  else
    min:=b;
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  readln(a,b,c);
  writeln('min');
  writeln(min(min(a,b),c));
end.

PROGRAM Comparison;
USES Crt;
CONST
  n = 10;
 
VAR
  i: INTEGER;
  X: ARRAY[1..n] OF REAL;
  min, max: REAL;
 
BEGIN
  {Data input}
  WriteLn('Input X[1]..X[n]:');
  FOR i := 1 TO n DO
  BEGIN
    Write(' X[', i, ']= ');
    ReadLn(X[i]);
  END;
  WriteLn;
  
  {Comparison}
 
  {Search for the minimum}
  min:=X[1];
  FOR i := 1 TO n-1 DO
    BEGIN
      IF min < X[i+1] Then
        min := min
      else
        min := X[i+1]
    END;
 
  WriteLn(' min = ', min);
  
  {Maximum search}
  max:=X[1];
  FOR i := 1 TO n-1 DO
    BEGIN
      IF max > X[i+1] Then
        max := max
      else
        max := X[i+1]
    END;
 
  WriteLn(' max = ', max);
 
  ReadKey;
END.