Обработка строк с использованием множественного типа данных

[Stapee]

Помогите написать программу заданной обработки массива слов. В процессе обработки использовать множественных тип данных. Заполнение исходных данных – с клавиатуры. Исходный и обработанный массив выводить на экран.
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Вывести те слова, у которых число четных цифр превышает число нечетных.
Заранее спасибо!

[Stilet]

function OddEven(s:String):Boolean;
var i,o,e:integer;
begin
 o:=0;e:=0;
 for i:=1 to length(s) do 
  if s in ['2','4','6','8'] then inc(o) else inc(e);
 OddEven:=o>e;
end;

А вызывать:

if OddEven('1234567890') then Четных больше;

Понятен смысл? прикрути эту функу и пользуй.

[Stapee]

Сообщение от Stilet

function OddEven(s:String):Boolean;
var i,o,e:integer;
begin
 o:=0;e:=0;
 for i:=1 to length(s) do 
  if s in ['2','4','6','8'] then inc(o) else inc(e);
 OddEven:=o>e;
end;

А вызывать:

if OddEven('1234567890') then Четных больше;

Понятен смысл? прикрути эту функу и пользуй.

А можно поподробнеи че сдесь че делает