В четырехзначном числе найти поначалу самую великую цифру и вывести ее,

var
a,b,c,d:char;
ai,bi,ci,di:integer;
function min(x,y:integer):integer;//функция, обретающая минимум из 2х чисел
begin
if (xlt;y)then min:=x
else min:=y;
end;
function max(x,y:integer):integer;//функция, обретающая максимум из 2х чисел
begin
if(xgt;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.