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

 var
a,b,r:longint;
c:array[1..10]of integer;
t,i,j,max:integer;
begin
writeln('vvedite chisla a i b');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('raznost=',r);
repeat
t:=r mod 10;
inc(c[t]);
r:=r div 10;
until r=0;
 
for i:=0 to 9 do
begin
writeln(c[i]);
if c[i]>c[max] then max:=i;
end;
writeln('samaya chastaya cifra raznosty=',max);
readln;
end.

uses
  Crt;
var
  N1,N2,N3,i: integer;
  a: array [0..9] of byte;
begin
  ClrScr;
  Write('1st number: ');
  ReadLn(N1);
  Write('2nd number: ');
  ReadLn(N2);
  for i := 0 to 9 do
    a[i] := 0;
  N3 := N1 - N2;
  WriteLn('diff: ', N3);
  while N3 <> 0 do
  begin
    Inc(a[N3 mod 10]);
    N3 := N3 div 10;
  end;
  N3 := 0;
  for i := 0 to 9 do
  begin
    if a[i] > a[N3] then
       N3 := i;
    WriteLn(i, ' - ', a[i]);
  end;
  if a[N3] > 1 then
    WriteLn('Result: ', N3)
  else
    WriteLn('No');
  ReadLn;
end.