Описать тип с данными о сотрудниках

[Stilet]

Пожалуйста:

type
TX=record
   Name: String;  // Имя
   Fam: String;    // Фамилия
   Dolg: String;    // Должность
   Zarp: String;   // Зарплата
   Deti: Integer;  // Количество детей
   God: String;    // Год рождения 
end;
var a:array[1..10] of TX;c,i:integer;
begin  c:=0;
 for i:=1 to 10 do begin
  with a[i] do begin
   Write('Введите Имя '); readln(Name);
   Write('Введите Кол-во детей '); readln(Deti);
   {Остальные поля сам}
   c:=c+Deti;
  end;
 end;
 Write('Кол-во подарков=',c);readln;
end.

[Utkin]

А если препод спросит почему Зарплата в виде String - а может сотрудник за еду работает? Вот и выдали ему сегодня 5 банок шпротов, а завтра пакет картошки (сколько кг неизвестно - никто не взвешивал). В конце концов сотрудник зарплату мог и стрингами получать...

[Stilet]

А если препод спросит

Хитрый студент всегда найдет выход, даже если этот выход единственный - из аудитории

[Масим]

спасип огромное я даже понял суть записей)))))))