Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию:сумма значений цифр десятичной записи числа равно 10

Pascal const      n = 100; // Максимальное число элементов       var   a : array [1..n] of integer;    L,i,c,s,k : integer;     begin  L := 1;  c := 10;    while c <> 0 do    begin    readln (c);    a[L] := c;    L := L + 1;  end;   l := l -1;   k := 0;    for i := 1 to L do     begin    c := a[i];    s := 0;      while c <> 0 do      begin        s := s + c mod 10;        c := c div 10;      end;      if s = 10 then      k := k + 1;    end;  writeln ();  writeln (k);      end.