Pascal padėkite rasti klaida

Sveiki, prašau padėti surasti klaidą.

Programa turėtų rasti mažiausią ir didžiausią natūraliojo skaičiaus n skaitmenį.

program MiniMax;
var n,
min, max : integer
  begin
 WriteLn('Surinkite natūralūjį skaičių ');
 Read (n);
 min := 0; max := 0;
 while n > 0 do
 begin
 s := n mod 10
 if s > max
 then max := s;
 if s < min
 then min := s;
 n := n div 10
end;
WriteLn ('Mažiausias skaitmuo: ', min);
WriteLn (' Dažniausias skaitmuo: ', max);
end.

Prie kintamųjų sąrašo neaprašai kintamojo "s".

Prie kintamųjų sąrašo neaprašai kintamojo "s".

Daugiau čia klaidų yra, vien kelios sintaksės klaidos :) O iš loginės pusės, nusistatyti min = 0, ir tada tikrinti 'if s < min' irgi įdomia.. :D

program MiniMax;
var n, s,
min, max : integer;
 begin
 WriteLn('Surinkite natūralūjį skaičių ');
 Read (n);
 min := 9; max := 0;
 while n > 0 do
   begin
     s := n mod 10;
     if s > max
     then max := s;
     if s < min
     then min := s;
     n := n div 10
   end;
WriteLn ('Mažiausias skaitmuo: ', min);
WriteLn (' Dažniausias skaitmuo: ', max);
end.

Paskaliu neprogramuoju, testuoti irgi netestavau, bet, manau, turėtų veikti