вложенные записи в паскаль

[Serge_Bliznykov]

так, во-первых, не надо цитировать полностью сообщение. Это нарушение называется "избыточное цитирование" == overquoting (оверквотинг)
Удаляйте из цитаты лишний текст!

во-вторых, Вы какую программу показывали преподователю?
Ту, которая была в пост #7 ?!
Там логика построена так - сначала выводятся ВСЕ записи, потом - только мужчины - военные.
Но, по сути он прав - количество детей у женщин в программе нигде не выводилось.
Но это же не сложно добавить!
Если нужно выводить женщин, то добавьте код, примерно такого вида:

WriteLn('Женщины: ');
Line(80);
writeln('| Фамилия     |Год рожд.|          Адрес           | Пол |Кол.детей|Замужем|Зарплата |');
Line(80);
for i := 1 to 5 do
begin
  if (a[i].ozn = 2) {если женщина}  then
  begin
    writeln('| ', a[i].surname: 13, '| ', a[i].rik_n: 6, ' | ', a[i].adres: 19, '| Жен | ',
       a[i].num_children:7, ' | ', a[i].zamij, ' | ', a[i].zarplataJ:7:2, ' |');
  end;
end;
Line(80);
WriteLn;

p.s. очень-очень рекомендую разобраться в коде, какая строчка за что отвечает!
Если будут вопросы - задавайте, тут подскажут.
Просто у меня сложилось впечатление, что Вы не стали вдаваться в подробности, что там внутри кода написано и где что выполняется... Буду рад, если я ошибаюсь.

[mishammm]

всё понял, извиняюсь!

[mishammm]

Если будут вопросы - задавайте, тут подскажут.
Просто у меня сложилось впечатление, что Вы не стали вдаваться в подробности, что там внутри кода написано и где что выполняется... Буду рад, если я ошибаюсь.

впринцыпе код понял записи в том числе единственно не понял until repeat можно как было по другому сдлеать? например если мужчина воееный то через IF или например while ... do

[Serge_Bliznykov]

не понял until repeat можно как было по другому сдлеать? например если мужчина воееный то через IF или например while ... do

да, безусловно.

я даже больше скажу.
можно написать вообще без цикла:

if a[i].ozn=1 then begin
       Write('Is military ? (0/1): '); readLn(k);
       a[i].voenniy := (k=1); {если ввели 1, то в a[i].voenniy запишется true, иначе - false }
       Write('salary :'); readln(a[i].zarplataM);

цикл я вставил исключительно для защиты от неверного ввода. ну, если пользователь введёт не 0 и не 1 - ему опять задастся тот же вопрос и будет повторяться, пока не введёт или 0 или 1.

[mishammm]

и последнее, можете показать как вы вводили данные чтобы выводилась женщина например? ну там в лс может кинуть фотку, потому что правилами запрещено чтобы я на все 100 убедился как вводились данные. благодарю и извините за отнятое у вас время

[Serge_Bliznykov]

и последнее, можете показать как вы вводили данные чтобы выводилась женщина например?

могу.
непонятно, зачем Вам это.. ну да ладно.