Написала программу на Pascal для задания, но нужно добавить условие: если введено однозначное или 0, то вывести ошибку

Задание: Задано множество N натуральных чисел. Заменить каждое из них на число, которое получается из исходного записью его десятичных цифр в обратном порядке. Полученное множество чисел распечатать.
Вот программа:
type
mass=array [1..100] of integer;
var
n,i,s:integer;
a:mass;
begin
write('Введите количество чисел множества N = ');
read(n);
writeln('Введите эти числа:');
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;
begin
write('Множество N:');
for i:=1 to n do
write (a[i]:6);
writeln;
write('Полученное множество M:');
begin
for i:=1 to n do
begin
s:=0;
while a[i]>0 do
begin
s:=s*10+(a[i] mod 10);
a[i]:=a[i] div 10;
end;
a[i]:=s;
write (a[i]:5);
end;
end;
end;
end.