паскаль ( помогите пожалуйста

var
Cnt, Dig, Max, Min, Num, X: Integer;
begin
ReadLn(Num); // исходное число
ReadLn(Dig); // заданная цифра
Cnt := 0;
Max := 0;
Min := 10;
while Num > 0 do
begin
X := Num mod 10;
if X > Max then Max := X;
if X < Min then Min := X;
if X = Dig then Inc(Cnt);
Num := Num div 10;
end;
WriteLn('Мин. цифра: ', Min);
WriteLn('Макс. цифра: ', Max);
WriteLn('Цифра ', Dig, ' встречается ', Cnt, ' раз');
end.

var i, x, y, mini, maxi, kolvo: integer;
a: array [1..100] of integer;
begin
write ('введите число= ');
readln (x);
write ('введите цифру= ');
readln (y);
i:=0;
kolvo:=0;
while x>0 do
begin
inc(i);
a[i]:=x mod 10;
if i=1 then begin maxi:=a[i]; mini:=a[i]; end;
if a[i]> maxi then maxi:=a[i];
if a[i] < mini then mini:=a[i];
if a[i]=y then inc(kolvo);
x:=x div 10;
end;
writeln ('max ',maxi);
writeln ('min ',mini);
{if x=0 then writeln ('цифра 0 встречается 1 раз') else}
if kolvo<>0 then write ('цифра ',y,' встречается ',kolvo, ' раз (а)')
else write ('цифра ',y,' не встречается');
end.

или
var a, i, x, y, mini, maxi, kolvo: integer;
begin
write ('введите число= ');
readln (x);
write ('введите цифру= ');
readln (y);
kolvo:=0;
i:=0;
while x>0 do
begin
inc(i);
a:=x mod 10;
if i=1 then begin maxi:=a; mini:=a; end;
if a > maxi then maxi:=a;
if a < mini then mini:=a;
if a=y then inc(kolvo);
x:=x div 10;
end;
writeln ('max ',maxi);
writeln ('min ',mini);
{if x=0 then writeln ('цифра 0 встречается 1 раз') else}
if kolvo<>0 then write ('цифра ',y,' встречается ',kolvo, ' раз (а)')
else write ('цифра ',y,' не встречается');
end.