Задача по среде Pascal(Turbo)(ABC)(не могу решить)

[Федор2001]

Помогите решить.
Условия задачи:
В Автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения.
В Массиве V(8) содержаться года рождения сотрудников,
В Массиве P(8) - Сведения о поле,
В Массиве S(8) - Сведения о семейном положении.
Элемент массива V с номером N- год рождения сотрудника N,
Элемент массива P с номером N - Сведения о поле сотрудника N,
Элемент S с номером N - сведения о семейном положении сотрудника N

P(N) = 0, сотрудник N женского пола
P(N) = 1, Сотрудник N мужского пола

S(N) = 0, сотрудник N холост(не замужем)
S(N) = 1, сотрудник N Женат (Замужем)

определить процентное соотношение
k = количество женщин в возрасте до 55/общее количество женщин х 100

[ViktorR]

Алгоритм может быть таким:

1. Вводим текущий год - YYYY
2. Цикл по i от 1 до 8
3. Если (P[i] = 0) то
    begin
       ЧислоЖенщин := ЧислоЖенщин + 1;
       Если (YYYY - V[i] < 55) то
           ЖенщинМоложе55 := ЖенщинМоложе55 + 1;
    end;
4. Конец цикла.
5. Далее по формуле:
   Процент := (ЖенщинМоложе55/ЧислоЖенщин)*100;

Как-то так, ...