Простая задача! Немогу понять!

[BelialL]

Здравствуйте! прошу помочь я только начинаю изучать программирование и одному разобраться во всем сложновато! вот задача (Составить три программы. Первая программа принимает с клавиатуры год рождения студента и пишет его в текстовый файл File 1. txt . Вторая программа читает из текстового файла год рождения студента, вычисляет его возраст и выводит на экран дисплея. Третья программа читает из текстового файла год рождения студента, вычисляет его возраст и пишет его в текстовый файл File 2. txt .) перерыл весь инет и ничего путного ненашел пжалуйста помогите решить или подскажите место где можно посмотреть инфу которая поможет в решении задачи! я пробовал решать вот что получилось!

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var t: textfile; a: integer;

begin
AssignFile(t,'MyFile.txt');
Rewrite (t);
write ('day/manch/year= ');
readln (a);
write (t,a);
end.

[_-Re@l-_]

manch

Правильно month

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,DateUtils;

var t: textfile; 
      date,month,year:Integer;

begin
AssignFile(t,'MyFile.txt');
Rewrite (t);
readln(day);
readln(month);
readln(year);
write(t,day,month,year);
end.

[Mad_Cat]

_-Re@l-_ ,

day,month,year:Integer;

[mihali4]

Для "особо одаренных" и не желающих соблюдать наши правила.
Читаем правила этого раздела и думаем...
Причем не так, по диагонали, а вдумчиво читаем!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Подсказка - для вас персонально особо важен пункт 7.
Как вы понимаете - тема будет удалена.
Модератор