Проверить кратность числа 11-ти

var
  Form1: TForm1;
  n, crat:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if n=0 then
 begin
  crat:=1;
 end;
  if n<0 then
  begin
   crat:=0;
  end;
  begin
   crat:=crat(n-11);
  end;
begin
 n:=StrToInt(Edit1.text);
  if crat(n)=1 then
 ShowMessage('Chislo n kratno 11')
  else
 ShowMessage('Chislo n ne kratno 11');
  exit
end;
 
end;
 
end.

var
  a, b: Integer;
begin
  a := 11;
  b := 33;
  if b mod a = 0 then
    ShowMessage('a кратное b')
  else
    ShowMessage('a НЕ кратное b')
end;

var
  str: string;
  i, s, chet, nechet: Integer;
begin
  s := StrToInt(Edit1.Text); //сюда пишем число
  chet := 0;
  nechet := 0;
 
  for i := 1 to Length(Edit1.Text) do
    if i mod 2 = 0 then
      chet := chet + StrToInt(IntToStr(s)[i])
    else
      nechet := nechet + StrToInt(IntToStr(s)[i]);
 
  if chet = nechet then
    ShowMessage(Edit1.Text + ' делится на 11')
  else
    ShowMessage(Edit1.Text + ' НЕ делится на 11')
end;