звестны фамилии 25 человек, их семейное положение: женат(замужем) или нет и сведения о наличии детей. определить фамилии женатых людей, имеющих детей- Pascal(Паскаль)

program tt;
uses crt;
const
Nmax=25;
type Tpeople=record
familia:array [1..Nmax] of string[30];
cem_pol:array [1..Nmax] of string[7];
nal_det:array [1..Nmax] of string[2];
end;
var
  people:Tpeople;
  i:integer;
begin
  for i:=1 to Nmax do begin
    writeln('Фамилия:');
    readln(people.familia[i]);
    writeln('Семейное положение(замужем/женат/нет):');
    readln(people.cem_pol[i]);
    writeln('Есть дети?(да/нет):');
    readln(people.nal_det[i]);
  end;
  writeln('Люди женатые и имеющие детей:');
  for i:=1 to Nmax do begin
    if (people.cem_pol[i]='женат')and(people.nal_det[i]='да')then
      writeln(people.familia[i])
    else
      writeln('Таких нет');
  end;
  readln;
end.