Помогите с заданием 2, Паскаль

var a,b,c,max,min,s:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
  if a<b then
    min:=a
  else min:=b;
  if c<min then
     min:=c;
  if a>b then
     max:=a
  else max:=b;
  if c>max then
    max:=c;
    
  if (a=b) and (b=c) and (a=c) then
    write('Все числа равны')
  else
    begin
      s:=min+max;   
      write('Сумма наибольшего и наименьшего чисел=',s,', где 1-е число=',a,', 2-е=',b,' и 3-е=',c);
    end;
end.