Найти значение минимального отклонения каждого из трёх чисел от их среднего арифметического - Turbo Pascal

var
  mn, a, b, c, sr: real;
  i, n: integer;
 
function Min(a, b: real): real;
begin
  if a < b then 
    Min := a 
  else
    Min := b;
end;
 
 
 
begin
  write('Введите 3 числа: ');
  readln(a, b, c);
  sr := (a + b + c) / 3;
  writeln('Среднее арифметическое: ', sr);
  mn := min(min(abs(a - sr), abs(b - sr)), abs(c - sr));
  
  
  writeln('Отклонение от среднего арифметического a: ', abs(a - sr));
  writeln('Отклонение от среднего арифметического b: ', abs(b - sr));  
  writeln('Отклонение от среднего арифметического c: ', abs(c - sr));    
  writeln('Минимальное отклонение от среднего арифметического: ', mn);      
  
end.