Программа выделения и печати  цифр заданного целого числа — Pascal(Паскаль)

Program As6(Inpit, Output);
Var 
S : String; 
N : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Выделение и печать цифр числа.'); 
Write ('Введите любое число: ');
ReadLn (S); 
N := Length (S);
For i := 1 To N Do
Begin
Case S [i] Of
'0'..'9': WriteLn (i, '-ая позиция числа равна: ', S [i]);
End;
End;
 
ReadLn;
End.