Дано натуральное число N . Определить наименьшую и наибольшую цифры данного числа (Pascal ABC)

var s:string; max,min:char;begin   write('Введите число: '); readln(s);   max:=s[1]; min:=s[1];    for var i:=2 to s.Length do  begin       if min>s[i] then min:=s[i];       if max<s[i] then max:=s[i];    end;      writeln('max = ',max);   writeln('min = ',min);  end.