Pascal/Turbo Pascal - ¿INFORMATICA! diseñar Pseudocodigo para este enunciado en pascal:

uses crt;

type

    persona=record

        sexo:char;

        edad:byte;

        ec:char; {estado civil}

    end;

var

   mayores,femenino,masculino,mc,fc,v:integer;

   flag:boolean;

   datos:persona;

begin

     clrscr;

     flag:=true;

     while flag do begin

         write('Edad:');

         readln(datos.edad);

         if datos.edad > 30 then

            mayores:=mayores+1;

         if datos.edad = 0

            then

                flag:=false

            else

                begin

                    write('Sexo [M]asculino, [F]emenino:');

                    readln(datos.sexo);

                    if datos.sexo = 'F' then

                       femenino:=femenino+1

                    else

                        masculino:=masculino+1;

                    write('Estado civil [S]oltero, [C]asado, [V]iudo, [D]ivorciado:');

                    readln(datos.ec);

                    if (datos.sexo = 'M') and (datos.ec = 'C') then

                        mc:=mc+1;

                    if (datos.sexo = 'F') and (datos.ec = 'C') then

                       fc:=fc+1;

                    if datos.ec = 'V' then

                       v:=v+1;

                end;

     end;

     writeln('Mayores de 30 anios:',mayores);

     writeln('Personas de sexo femenino:',femenino);

     writeln('Personas de sexo masculino:',masculino);

     writeln('Hombres casados:',mc);

     writeln('Mujeres casadas:',fc);

     writeln('Mujeres viudas:',v);

     readkey;

end.