Создать массив записей(((

[Настенька..Блонди]

Задать запись «Sotrudniki», состоящую из полей: Surname (фамилия), name (имя), age (возраст), date (год принятия на работу), plata (размер заработной платы), pol (пол). Создайте массив записей. Заполните его и найдите: Количество сотрудников женского пола.

[Викдон]

type sotrudniki=record
 Surname:string; {Фамилия}
 name:string;  {Имя}
 age:byte;  {возраст}
 date:integer; {дата приема на работу}
 plata:integer; {заработная плата}
 pol:char;  {пол-м/ж}
end;
var mas:array[1..25] of sotrudniki;
    i,k,kol:integer;

begin
write('Введите колличество записей: ');
readln(k);
 while i<k do   {Заполнение массива}
  begin
   inc(i);
   with mas[i] do
    begin
       writeln('Введите информацию о ',i,' сотруднике:');
       write('Введите фамилию: ');
       readln(Surname);
       write('Введите имя: ');
       readln(name);
       write('Введите возраст: ');
       readln(age);
       write('Введите дату: ');
       readln(date);
       write('Введите зарплату: ');
       readln(plata);
       write('Введите пол(ж/м или j/m): ');
       readln(pol);
       writeln;
   end; {with}
 end; {while}

kol:=0;
 for i:=1 to k do
  with mas[i] do
    if (pol='ж') or (pol='j') then
     inc(kol); {kol-счетчик работников женского пола}
 write('Работников женского пола: ',kol);


readln;
end.

[Настенька..Блонди]

ooo...Огромное спасибооо)))