Кратно ли число одиннадцати, используя признак делимости на 11 - Turbo Pascal

uses crt;
var p:longint;
    a:array[1..10] of byte;
    z,n,s,i:real;
    procedure asd(s,z,n:real; p:longint);
    begin
    while p>0 do
    begin
  n:=n+1;
  z:=(p mod 10);
  a[n]:=z;
  p:=p div 10;
   end;
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i] else s:=s-a[i];
   end;
   begin
writeln('Кратно ли число 11?');
write('Введите натуральное число P=');
readln(p);
n:=0;
asd (s);
if s mod 11=0 then write('Число кратно 11')
else write('Число не кратно 11');
     end.