Вот это задачка!!!

[Лёха]

Привет всем!!! У меня большая просьба к тем кто сможет мне помочь, я совсем непонимаю паскаль, а тут задали такую задачку, может поможете, пожалуйста???!!!
А вот и условие:
Сохранить в типизированный файл информацию о нескольких сотрудниках (ФИО, год рождения, пол) и по запросу выдать список людей не моложе 20 лет.

Помогите, если кто может сделать, блок-схемка тоже не помешала бы!

[pu4koff]

паскаль давно в глаза не видел, но примерно так будет
описываете вот примерно такое:

TMeRecord = record
  FIO: string[50];
  year: integer;
  sex: boolean;  // true - мужской пол
end;

потом для сохранения как-то так:

var
  f: file of TMyRecord;
  r: TMyRecord;
begin
  assign(f,'123.dat');
  rewrite(f);
  r.FIO := 'иванов и.и.';
  r.year := 1987;
  r.sex := true;
  write(f,r);
  r.FIO := 'петров п.п.';
  write(f,r);
  ...
  close(f);
end;

вывод как-то так:

var
  f: file of TMyRecord;
  r: TMyRecord;
begin
  assign(f,'123.dat');
  reset(f);
  while not eof(f) do
  begin
     read(f,r);
     if (r.year + 20 <= 2008) then // выводим на экран
  end;
  close(f);

мог где-то "наврать", т.к. здесь прямо писал, но если захотите доделаете сами
ЗЫ. если ленитесь, то не надо жадничать. у людей свои дела тоже есть, а ваши просьбы о блок-схемках для меня выглядят нагловато. Цените своё время - цените и чужое

[Лёха]

ну впринципе насчёт блок-схем это я так, кому не сложно...а так большое спасибо

может кто-нибудь ещё предложит решение...