1.вводится целое неотрицательное число. найти максимальную и минимальную цифру в числе. 2. вводится целое неотрицательное число. входит ли в него заданная цифра? если да, то сколько раз она в нем встречается. решить в паскали

1) var n,m,max,min: integer; begin write('введите число: '); readln(n); min: =9;     max: =0; while n> 0 do  begin  m: =n mod 10;   if m< min then min: =m;   if m> max then max: =m;   n: =n div 10;   end;     writeln('максимальное число: ',max);     writeln('минимальное  число: ',min); end.2)vari,count: integer; n,s: string; beginwriteln('введите число: '); readln(s); writeln('введите цифру: '); readln(n); for i: =1 to length(s) doif(s[i]=n)thencount: =count+1; writeln('количество раз, когда встречается цифра  = ',count); end.