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