Типизированные файлы Опции

[Creator S.]

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

Вот такой вариант может быть правильным? Еще меня интересует как оформить
в виде отдельных подпрограмм.

Program rgz8;
  const
    n=1;
  type
      ludi=record
            fam,name,znak,mes:string;
            data,god:integer;
end;
 Var
    lud: array[1..n] of ludi;
    i,j:integer;

Begin
  writeln('Vvedite dannyi o ludyah');
    for i:=1 to n do
      with lud[i] do begin
        writeln('Vvedite familiu');
          readln(fam);
        writeln('Vvedite imya');
          readln(name);
        writeln('Vvedite znak zodiaka');
          readln(znak);
        writeln('Vvedite meses');
          readln(mes);
        writeln('god');
          readln(god);
        writeln('data rogdenia');
          readln(data);

end;
     if lud[i].mes='август' then begin
        for i:=1 to n do
        write(lud[i].name);
end
     else writeln('Takih ludei net');
readln;
end.