Задача. Записи Опции

[-Nata-]

Всем привет . Задали нам вот такую вот задачку по информатике:

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

Сдавать надо послезавтра, а я чего-то не понмаю что надо сделать, ну не бум-бум я в этом деле. Кому не трудно помогите написать програмку. Буду признательна.

[-Nata-]

Текст задачи немного изменили, но смысл не изменился. Вот попытка решения, но полностью решить чего то никак не получается, в частности непонятно как гайти самого юного и самого старого. К тому же меню выводится после ввода КАЖДОГО члена списка а не в конце ввода всех Вот задача:

uses crt;
 label 1;
 type
   house_register = record
   number : string;
   Last_name : string;
   Name : string;
   Age : integer;
   Status : string;
   Place_of_education : string;
   Place_of_working : string;
   Standing : string;
   Pension : string;
 end;

 var
   base : array[1..30] of house_register;
   i : integer;
   f : text;
   n : integer;
   s : string;
  begin
  clrscr;
       writeln('max');
       readln(n);
       for i:=1 to n do
       with base[i] do
       begin
       writeln('#'); readln(number);
       writeln('ln'); readln(Last_name);
       writeln('n'); readln(Name);
       writeln('a'); readln(Age);
         if Age>=18 then
         begin
         writeln('Enter status person s(student), w(working), p(pensioner)');
         readln(Status);
         end;
           begin
           if Status = 's' then
           writeln('Enter place of education');
           readln(Place_of_education);
           end;
             begin
             if Status = 'w' then
             writeln('Enter place of working and standing');
             readln(Place_of_working, standing);
             end;
               begin
               if Status = 'p' then
               writeln('Enter pensions(years)');
               readln(pension);
            end;
         begin
         1:writeln('For show students enter ss');
         writeln('For show works enter sw');
         writeln('For show pensions enter sp');
         writeln('For show yonger person enter y');
         writeln('For show older person enter o');
         readln(s);
       if s = 'ss' then
        if status = 's' then
            begin
            writeln(number);
            writeln(Last_name);
            writeln(Name);
            writeln(Age);
            writeln(Status);
            writeln(Place_of_education);
            end;
       if s = 'sw' then
        if status = 'w' then
            begin
            writeln(number);
            writeln(Last_name);
            writeln(Name);
            writeln(Age);
            writeln(Place_of_working);
            writeln(Standing);
            end;
       if s = 'sp' then
        if status = 'p' then
            begin
            writeln(number);
            writeln(Last_name);
            writeln(Name);
            writeln(Age);
            writeln(Pension);
            end;
      if s <> ('ss') then
       if s <> ('sw') then
        if s <> ('sp') then
      begin
      writeln('ERROR!');
      goto 1;
      end;
      end;
      readln;
end;
end.

Если не трудно окажите помощь