Записи в Turbo Pascal

[Грета]

помогите пожалуйста с написанием программы.задание:создать файл "Сотрудники",включающий информацию:фамилия сотрудника,кафедра,дата рождения,стаж работы.найти информацию о сотруднике с наибольшим стажем.составить список сотрудников,родившихся весной.Составить списки сотрудников по кафедрам

[Грета]

помогите пожалуйста-всего 1 лаба осталась....

[Грета]

скажите пожалуйста хотя бы как обозначить дату рождения-через стандартные типы данных не выходит...

[Mad_Cat]

type data=record
dd,mm:byte;
yyyy:word;
end;

[Грета]

ну я так и делала-он выдает мне что требуется перед знаком = написать : ...то бишь присваивание!

[Грета]

вот код,все выводит,но вот не могу впихнуть дату(тип) не получается и рожденных весной ссоответственно...((помогите!!!

║TYPE sotr=record ▲
║fam,kaf:string; ■
║staj:integer; ▒
║ ▒
║end; ▒
║var sotrudniki:file of sotr; ▒
║s,k:sotr; ▒
║i,n,min:integer; ▒
║begin ▒
║assign(sotrudniki,'sotrudniki '); ▒
║rewrite(sotrudniki); ▒
║write('kolichestvo sotrudnikov:'); ▒
║readln(n); ▒
║writeln; ▒
║writeln('sotrudniki'); ▒
║for i:=1 to n do ▒
║begin ▒
║writeln; ▒
║writeln(i,'sotrudnik'); ▒
║with s do ▒
║begin

write('familia:');readln(fam); ▒
║ ▒
║write('kafedra:');readln(kaf) ; ▒
║write('staj:');readln(staj); ▒
║write(sotrudniki,s); ■
║end; ▒
║end; ▒
║writeln; ▒
║min:=6; ▒
║reset(sotrudniki); ▒
║while not eof(sotrudniki) do ▒
║begin ▒
║read(sotrudniki,s); ▒
║with s do ▒
║if (staj>min) then ▒
║begin ▒
║min:=staj;

║k:=s; ▒
║end; ▒
║end; ▒
║writeln; ▒
║close(sotrudniki); ▒
║end.

[Грета]

я в отчаянии,не могу справиться(((

[Serge_Bliznykov]

Грета, разбирайтесь в решении.
и в следующий раз ПРАВИЛЬНО оформляйте исходный код. (тегами, как того требуют правила форума и раздела)

type
  data = record
    dd, mm: byte;
    yyyy: word;
  end;

  sotr = record
    fam, kaf: string;
    staj: integer;
    dr: data;
  end;


var
  sotrudniki: file of sotr;
  s, k: sotr;
  i, n, maxStaj: integer;
begin
  assign(sotrudniki, 'sotrudniki ');
  rewrite(sotrudniki);
  write('kolichestvo sotrudnikov:');
  readln(n);
  writeln;
  writeln('sotrudniki');
  for i := 1 to n do
  begin
    writeln;
    writeln(i, 'sotrudnik');
    with s do
    begin
      write('familia:'); readln(fam);
      write('kafedra:'); readln(kaf);
      write('staj:'); readln(staj);
      write('data rojdeniy (dd mm yyyy) :');
              readln(dr.dd, dr.mm, dr.yyyy);
      write(sotrudniki, s);
    end;
  end;
  writeln;
  maxStaj := -1;
  reset(sotrudniki);
  while not eof(sotrudniki) do
  begin
    read(sotrudniki, s);
    with s do
      if (staj > maxStaj) then
      begin
        maxStaj := staj;
        k := s;
      end;
  end;
  writeln;

  {сотрудник с наибольшим стажем}
  if maxStaj<0 then WriteLn('Нет сотрудника с наибольшим стажем')
  else
    WriteLn('Наибольший стаж имеет ','familia:', k.fam, ' kafedra: ',k.kaf,
            ' staj: ', k.staj );


  {выдать список сотрудников, родившихся весной}
  WriteLn('Список сотрудников, родившихся весной:');
  seek(sotrudniki, 0); {установить указатель в файле на начало}
  while not eof(sotrudniki) do
  begin
    read(sotrudniki, s);
    if s.dr.mm in [3,4,5] then
       WriteLn('familia:', s.fam,
          ' data rojd: ', s.dr.dd,'.', s.dr.mm,'.', s.dr.yyyy);
  end;
  close(sotrudniki);
  readln;
end.