Числа, делящиеся на 41

uses crt;
var i,j,k,c,a,mx:longint;
begin
clrscr;
mx:=0;
i:=41;
while i<=1000000 do
 begin
  j:=i;
  k:=0;
  while j>0 do
   begin
    c:=j mod 10;
    if c=3 then k:=k+1;
    j:=j div 10
   end;
  if k>mx then
   begin
    mx:=k;
    a:=i
   end;
  i:=i+41;
 end;
write('Максимальное число троек в числе, кратном 41 a=',a);
readln
end.

type
  numarray = array[0..7] of byte;
 
var
  amax: numarray;
  kmax: integer;
  a, b: numarray;
  i, k: integer;
  r, c: byte;
 
begin
  for i:=0 to 7 do amax[i]:=0;
  kmax:=0;
 
  a:=amax; a[1]:=4; a[0]:=1;
  b:=a;
 
  k:=0;
  while TRUE do begin
    c:=0;
    i:=0;
    while (i<=2) do begin
      r:=a[i]+b[i]+c;
      if (r>9) then begin
        r:=r-10; c:=1;
        end
      else
        c:=0;
      if (a[i]=3) then begin
        if (r<>3) then dec(k);
        end
      else begin
        if (r=3) then inc(k);
        end;
      a[i]:=r;
      i:=i+1;
      end;
    while (c<>0) do begin
      if (a[i]=9) then begin
        a[i]:=0; c:=1;
        end
      else begin
        inc(a[i]); c:=0;
        case a[i] of
          3: inc(k);
          4: dec(k);
          end;
        end;
      i:=i+1;
      end;
    if (a[6]<>0) then break;
    if (k>kmax) then begin
      amax:=a;
      kmax:=k;
      end;
    end;
 
  if (kmax=0) then
    writeln('Not found')
  else begin
    i:=7; while (amax[i]=0) do dec(i);
    for i:=i downto 0 do write(chr(amax[i]+ord('0')));
    writeln;
    end;
 
  readln;
end.

while i<=1000000 do
 begin
  j:=i;
  k:=0;
  while j>0 do //Считаем количество цифр 3 
   begin 
    c:=j mod 10; 
    if c=3 then k:=k+1;
    j:=j div 10
   end;
  if k>mx then //если кол-во больше максимального
   begin
    mx:=k;//Записываем макс. количество цифр 3
    a:=i//и само число
   end;
  i:=i+41;//Ну и увеличиваем на 41,т.е перебираем все что на 41 делятся
 end;

writeln('Максимальное число троек в числах, кратных 41');
for i:=0 to 2 do
writeln(i*10000 + 3333);