Однозначные элементы массива оставить без изменения, многозначные заменить на сумму цифр - Pascal ABC

VAR a:array of integer;
n,i,t:integer;
c:char;
s:string;
BEGIN
Readln (n); //задание размера массива
SetLength(a,n);
For i:=0 to n-2 do begin //чтение данных кроме последнего
s:='';
Repeat
Read(c);
s:=s+c;
Until c=' ';
Val (s,n,t);
a[i]:=n;
end;
Readln (n); //чтение последнего элемента
a[i+1]:=n;
For i:=1 to i+1 do //обработка массива
IF a[i] div 10 <> 0 THEN begin
                         n:=0;
                         Repeat
                         n:=n+(a[i] mod 10);
                         a[i]:=a[i] div 10;
                         Until a[i]=0;
                         a[i]:=n;
                         end;
END.