Вопрос по информатике:

Что нужно добавить,чтобы работало правильно
program minandmax;
var a,b,c,d,e:integer;
begin
writeln ('введите числа');
readln (a,b,c,d,e);
if (a>b) and (a>c) and (a>d) and (a>e)and (a:=max)then
writeln ('число', a,' наибольшее')
else
if (b>a) and (b>c) and (b>d) and (b>e)then
writeln ('число', b,' наибольшее')
else
if (c>b) and (c>a) and (c>d) and (c>e)then
writeln ('число', c,' наибольшее')
else
if (d>b) and (d>c) and (d>a) and (d>e)then
writeln ('число', d,' наибольшее')
else
if (e>b) and (e>c) and (e>d) and (e>a)then
writeln ('число', e,' наибольшее');
if (a writeln ('число', a,' наименьшее')
else
if (b writeln ('число', b,' наименьшее')
else
if (c writeln ('число', c,' наименьшее')
else
if (d writeln ('число', d,' наименьшее')
else
if (e writeln ('число', e,' наименьшее')
end.


здесь при вводе одинаковых чисел минимальных или максимальных не выводится результат. ЧТо изменить ?