Составить таблицу в Паскаль

[mishammm]

Вообщем задача была такова: нужно было использовав иерархические записи ввести данные людей в таблицу: и стояло задание просто вывести зарплату военнообязанных мужчин
Вот код: (он полностью рабочий, вводяться данные в таблицу, таблица составляеться ,сортирует только военнообязанных мужчин, всё вообщем норм, но препод сказала чтобы было еще поле для военнообязанных женщин, просто так для красоты ). Я вот после jin:rerord; думаю давай запишу ввод данных записал чтобы при вводе спрашивало военнообязана ли она, но после этого перестаёт сортировать таблицу. Вообщем помогите добавить поле воеенообязанных женщин и чтобы при вводе нас спрашивало: если военна - то нажм 0 сели нет 1 например, пожалуйста

type
   anketa=record
   fio: string[45];
   rik:integer;
   stat:string;
   adres: string[50];
   zarpl:real;

   chol:record
   vij:integer;
   zarpl:real;
   end;
   
   jin:record

   zamij: integer;
   grupp: integer;
   end;
end;

var tabl: array [1..100] of anketa;
   l,I: integer;
   a:array [1..10] of integer;
   sumch:array [1..100] of real;
   sumji:array [1..100] of real;
   sch,sji:real;

procedure lin(m:integer);
var
I:integer;
begin
for i:=1 to m do write ('_');
writeln;
end;

begin
writeln ('кількість людей');
readln (l);
   for I:=1 to l do
   begin
   writeln ('Стать("ч" чи "ж") маленькими літерами');
   readln (tabl[i].stat);
   
   if tabl[i].stat='ч' then
   begin
      tabl[i].jin.zamij:=0;
      tabl[i].jin.grupp:=0;
      writeln ('fam imya otchestvo');
      readln (tabl[I].fio);
      writeln ('Rik');
      readln (tabl[i].rik);
      writeln ('adres');
      readln (tabl[i].adres);
      writeln ('військовий(так-1, ні-0)');
      readln(tabl[I].chol.vij);
      writeln ('зарплата');
      readln (tabl[I].zarpl);
      end

   else
   begin
      tabl[I].chol.vij:=0;
      writeln ('fam imya otchestvo');
      readln (tabl[I].fio);
      writeln ('Rik');
      readln (tabl[i].rik);
      writeln ('adres');
      readln (tabl[i].adres);
      writeln ('Кількість дітей');
      readln (tabl[I].jin.grupp);
      writeln ('заміжня(так-1, ні-0)');
      readln(tabl[I].jin.zamij);
      writeln ('зарплата');
      readln (tabl[I].zarpl);
      end;

   end;


   lin(100);
   writeln('| N |    Прізвище    |Рік нар.|Адреса     |Військовий| Кількість | Заміжня         |Заробітня плата|');
   writeln('|   |                |        |           |          |  дітей    |                 |               |');
   lin(100);
   
   for I:=1 to l do
   begin

         writeln('|',i:3,'|', tabl[I].fio:16,'|',tabl[i].rik:8 ,'|',tabl[i].adres:11,'|',tabl[i].chol.vij:10,'|',tabl[i].jin.grupp:11,'|',tabl[i].jin.zamij:17,'|',tabl[i].zarpl:15:0,'|' );
         lin(100);
   end;
   sji:=0;
   sch:=0;
   for
   i:=1 to l do
   begin
   if (tabl[i].stat='ч') and (tabl[i].chol.vij=1) then
   
  begin
    writeln('| ',i:3,'|', tabl[i].fio: 16, '| ', tabl[i].rik: 8, ' | ', tabl[i].adres: 11, '| Chol|',
       tabl[i].chol.vij, ' |', tabl[i].zarpl:15:0, '|');
  end;
end;
Lin(80);
WriteLn;
Readln;

end.