Для последовательности целых чисел a,b,c. Найдите разность между максимальным и минимальным значениями. / Pascal ABC

readln

uses crt;
var a,b,c:integer;
function min(a,b,c:integer):integer;
begin
 if (a<b) and (a<c) then
  min:=a
 else
  if (b<c) then
   min:=b
  else
   min:=c;
end;
function max(a,b,c:integer):integer;
begin
 if (b<a) and (c<a) then
  max:=a
 else
  if (b<c) then
   max:=c
  else
   max:=b;
end;
begin
 write('a=');
  readln(a);
 write('b=');
  readln(b);
 write('c=');
  readln(c);
 writeln('Mèíèìàëüíûé = ',min(a,b,c));
  writeln('Ìàêñèìàëüíûé = ',max(a,b,c));
   writeln('Ðàçíîñòü ìåæäó ìàêñ è ìèí = ',(max(a,b,c)-min(a,b,c)));
end.