Определите, какая цифра в этом числе встречается чаще других

Program L6_3;
{ Дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других }
Var
    P: Word;
    Mas: Array [0..9] of Byte;
    i,k: Byte;
procedure zifra;
Begin
    Write('P='); Readln(P);
    for i:=0 to 9 do Mas[i]:=0;
    while (P>0) do begin
      i:=P mod 10;
      P:=P div 10;
      Mas[i]:=Mas[i]+1;
  end;
  k:=0;
  for i:=1 to 9 do
      if Mas[i]>Mas[k] then k:=i;
    Writeln('Цифра ',k);
End;
begin
zifra;
end.

      if (Mas[i]>Mas[k]) and (Mas[i]>1) then k:=i;
    if k=0 then Writeln('Ни одна из данных цифр не повторяется ни разу')
    else Writeln('Цифра ',k);

Program L6_3;
{ Дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других }
Var
    P: integer;
    Mas: Array [0..9] of Byte;
    i,k,pov,kol: Byte;
 
procedure zifra;
Begin
    Write('P='); Readln(P);
    for i:=0 to 9 do Mas[i]:=0;
    while (P>0) do begin
      i:=P mod 10;
      P:=P div 10;
      Mas[i]:=Mas[i]+1;
  end;
  k:=0; pov:=0;
  for i:=0 to 9 do
if (Mas[i]>Mas[k]) and (Mas[i]>1) then
    begin
    k:=i;
    kol:=mas[i];
    end;
    if kol=0 then Writeln('Ни одна из данных цифр не повторяется ни разу')
    else
    begin
    for i:=0 to 9 do
        if (Mas[i])=kol then pov:=pov+1;
    if pov=1 then Writeln('Цифра ',k)
    else Writeln('Одинаковое число повторений у нескольких цифр');
    end;
End;
begin
zifra;
end.

repeat
  Write('P='); 
  Readln(P);
  if p<1 then
    writeln('Oshibka vvoda. Vy vveli ne naturalnoe chislo.');
until p>0;