Ответ:

1) ту строчку, которую выделил не пиши в том случае, если не будет работать, проверь дома, прежде чем писать

2) после строчки

read(S[i]); всё стираешь и пишешь:

m:=S[1];

m mod 2=1

for var i:= 1 to n do

if S[i]<m then

writeln('Число');

end.