Какую программу написать чтобы найти максимальное из чисел a,b,c ? минимльное из чтырёх чисел?

Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else 
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end. 
Второй в один вопрос еще))0).