регулярные типы. Опции

[ducky]

условие - Дан непустой текст из цифр, за которым следует точка. Напечатать цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатать любую из них).

мысли такие..может кто-то поправит пожалуйста?))

program V_20;
var a:array [1..100] of char;
    k,i,j,m,p,n:integer;

begin
 writeln ('vvedite text iz cifr. po oknchaniju vvoda nazmite tochku');
 k:=0;

 repeat
 readln (a[i]);
 k:=k+1;
 until a[i]<>'.';

 m:=1;
 p:=1;
 for i:=1 to k do

 begin
 n:=0;
  for j:=1 to k do

   begin
    if a[i]=a[j] then n:=n+1;
   end;

  if n>m then
   begin
    m:=n;
    p:=i;
   end;

  end;

  writeln ( ' naibolee chasto vstrechajushiesja chislo:', a[p] );
  readln;

  end.

[ducky]

вдохновения нету.

хотя если серьезно, то не знаю как сформулировать. при подсчете оно должно каждой цифре присвоить 1..и если эта же цифра встречается еще раз, то еще плюс 1..и так пока всё не подсчитает..