Дано натуральное число P. Проверьте, кратно ли P одиннадцати, используя признак делимости на 11 (знакопеременная сумма его цифр делится на 11) — Pascal(Паскаль)

uses crt;
function Krat11(n:longint):boolean;
var s,z:integer;
begin
z:=-1;
while n>0 do
 begin
  z:=-z;
  s:=s+z*(n mod 10);
  n:=n div 10;
 end;
Krat11:=s mod 11=0;
end;
 
var p:longint;
begin
clrscr;
writeln('Кратно ли число 11?');
write('Введите натуральное число P=');
readln(p);
write(Krat11(p));
readln
end.