Определение цифр в числе

Uses crt;
Var i,n,e,c:integer;
     s:string;
     Mas:arra [1..10] of integer;
begin
clrscr;
 Write ('Vvedite n - ');
 readln(n);
 str (n,s);
  for i:=1 to length(s) do begin
                                  Val (s[i],c,e);
                                   Mas[i]:=c;
                                  end;
 Write (' Cifry chisla ');
   for i:=1 to length(s) do 
    write (mas[i],' ');
readln
end.

program text;
uses crt;
var i,j,k,m,a,b,c,d,e:integer;
begin
clrscr;
writeln('введите четырех значное число');
readln(i);
b:=i div 1000;
if b mod 2=0 then writeln ('1 cifra chetnaya') else writeln('1 cifra ne chetnaya');
c:=i div 100;
if c mod 2=0 then writeln ('2 cifra chetnaya') else writeln('2 cifra ne chetnaya');
d:=i div 10;
if d mod 2=0 then writeln ('3 cifra chetnaya') else writeln('3 cifra ne chetnaya');
e:=i div 1;
if e mod 2=0 then writeln ('4 cifra chetnaya') else writeln('4 cifra ne chetnaya');
j:=0;k:=0;
if ((i div 1000) mod 2)=0 then
j:=j+1
else
k:=k+1;
i:=i mod 1000;
if ((i div 100) mod 2)=0 then
j:=j+1
else
k:=k+1;
i:=i mod 100;
if ((i div 10)mod 2)=0 then
j:=j+1
else
k:=k+1;
i:=i mod 10;
if (i mod 2)=0 then
j:=j+1
else
k:=k+1;
writeln('chotnih: ', j:2);
writeln('ne chetnih: ', k:2);
readln;
end.