Probléme Programe Pascal

Bonjour,

Ecrire un programme pascal permettant de coder un entier N donné supérieur ou égal a 1000 comme suit:
* on calcule la somme des chiffres de N
* A cette somme on ajoute la somme des chiffres de l'élément sauf le premier
* le calcul s'arrete des qu'on termine tous les chiffres qui constituent l'élement
exemple: Pour N=50301
5+0+3+0+1 =9
9+(0+3+0+1) =13
13+(3+0+1)=17
17+(0+1)=18
18+(1)=19
donc le code est 19
============================================================
Voici mon travaille je sais pas ou est ma faute

program ji;
uses wincrt;
type
tab = array [1..1000] of integer;

var
t: tab;i,e,nb,k,er,j:integer;
n,p:longint;
ch:string;
begin
repeat
readln(n);
until n>=1000;
str(n,ch);
k:=length(ch);
for i:=1 to k do begin
val(ch[i],t[i],er); end;
i:=k;
 
nb:=0;
repeat
i:=i+1;
t[i]:=0;
nb:=nb+1;
for p:=0 to k-1 do  begin
for j:=i-k to i-(2p+1) do

t[i]:=t[i]+t[j];
   end;
until nb=k;
write(t[i]);
end.

==>Pascal me dit que "signe ) attendu aprés le 2 qui est avant p

aider moi svp!!!