Дано натуральное число 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