С признака делимости на 11 проверьте, кратно ли данное натуральное число 11.Напишите рекурсивную функ

uses
  SysUtils;
 
var
 n:integer;
function crat (n:integer):integer;
begin
 if n=0 then
 begin
  crat:=1;
  exit;
 end;
  if n<0 then
  begin
   crat:=0;
   exit;
  end;
   crat:=crat(n-11);
  end;
begin
 writeln ('Vvedite chislo: ');
  readln(n);
  if crat(n)=1 then
 writeln('Chislo ',n,' kratno 11')
  else
 writeln('Chislo ',n,' nekratno 11');
  readln
end.

{.$DEFINE DEBUG}
program p11;
 
{$APPTYPE CONSOLE}
 
uses
  {$IFDEF DEBUG} CyrConsole, {$ENDIF}
  SysUtils;
 
function DivOn11(aVal :Integer) :Boolean;
var
  i :Word;
  sum1, sum2 :Word;
 
begin
  sum1 := 0;
  sum2 := 0;
  i := 0;
  while aVal > 0 do begin
    if (i mod 2) = 0 then
      sum1 := sum1 + aVal mod 10
    else
      sum2 := sum2 + aVal mod 10;
    { end if }
    aVal := aVal div 10;
    Inc(i);
  end; { end while }
  Result := (sum1 = sum2) or (Abs(sum1 -sum2) = 11);
 
end;
 
var
  a :Integer;
 
begin
  Write('Введите число: ');
  Readln(a);
  if DivOn11(a) then
    Writeln(a, ' кратное 11')
  else
    Writeln(a, ' не кратное 11');
  { end if }
  Readln;
end.

if (N mod k) = 0 then write(N,'кратно', k);

program Project15RecurvieCratnost;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function crat(n:integer; Indx, SumShet, SumNechet : integer):boolean;
begin
 if n=0 then
   crat := (SumShet = SumNechet) or (abs(SumShet - SumNechet)=11)
 else
  if odd(Indx)
     then crat := crat(n div 10, Indx+1, SumShet, SumNechet + (n mod 10))
     else crat := crat(n div 10, Indx+1, SumShet + (n mod 10), SumNechet )
end;
 
var
 n:integer;
begin
  repeat
    writeln ('Vvedite naturalnoe chislo: ');
    readln(n);
  until n>=1;
  if crat(n,1,0,0) then
     writeln('Chislo ',n,' kratno 11')
  else
     writeln('Chislo ',n,' ne kratno 11');
  readln
end.