В четырехзначном числе определить сначала самую большую цифру и вывести ее, затем – самую маленькую цифру и вывести ее,

var a,b,c,d:char; ai,bi,ci,di:integer; function min(x,y:integer):integer;//функция, находящая минимум из 2х чисел begin if (x<y)then min:=x else min:=y; end; function max(x,y:integer):integer;//функция, находящая максимум из 2х чисел begin if(x>y) then max:=x else max:=y; end; begin read(a,b,c,d); ai:=strtoint(a); bi:=strtoint(b); ci:=strtoint(c); di:=strtoint(d); writeln(min(min(ai,bi),min(ci,di)));//вывод минимума writeln(max(max(ai,bi),max(ci,di)));//вывод максимума writeln(max(max(ai,bi),max(ci,di))-min(min(ai,bi),min(ci,di)));//вывод разности максимума и минимума end.