Помогите, кто разбирается

Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c

Простая программка для сравнения 3 чисел (min_max_1):

Program Min_Max;

var a, b, c, min, max:integer;

begin

write ('Введите 3 числа для сравнения (через пробел) : '); read (a, b, c);

min:=a; max:=a;

if b>max then max:=b; if b
if c>max then max:=c; if c
writeln ('Максимальное число : ', max);

writeln ('Минимальное число : ', min);

readln;

end.