написание программы

const
    nMax = 100;
    currentYear = 2016;
var
    a: Array[1..nMax] Of Word;
    b, s: Array[1..nMax] Of Byte; //а не проще булен?
    i, numerator, denominator: Byte;
begin
    numerator := 0; denominator := 0;
    for i := 1 to nMax do
    begin
        Write('Year: '); ReadLn(a[i]);
        repeat
            Write('Sex (10-m,20-f): '); //male, female
            ReadLn(b[i]);
        until ((b[i] = 10) Or (b[i] = 20));
        repeat
            Write('Status (30-s,40-m): '); //single, married
            ReadLn(s[i]);
        until ((s[i] = 30) Or (s[i] = 40));
        if (b[i] = 20)
        then
        begin
            Inc(denominator);
            if (currentYear >= a[i] + 55)
            then
                Inc(numerator);
        end;
    end;
    WriteLn;
    if (denominator <> 0)
    then
        Write('k=', (100 * numerator / denominator):0:2, '%.')
    else
        Write('Divizion by zero!');
end.