Ограничения на ввод-вывод данных

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
i,i2,j,dd,year,g,n,mm :integer;
t :array [1..30] of integer;
f: textfile;
 
begin
AssignFile(f,'input.txt');
Reset(f);
Read(f,n);
 
j:=1;
 
For i:=1 To n Do
  Begin
  Read(f,t[i]);
  j:=j*t[i];
  End;
 
CloseFile(f);
 
 
year:=2009;
 
For i:=1 To j Do
Begin
g:=0;
 
For i2:=1 To n Do
If (i mod t[i2]=0) Then
g:=g+1;
 
If g=n Then
Begin
dd:=5;
mm:=12;
 
For i2:=1 To i Do
Begin
dd:=dd+1;
If (((mm=2) and (dd=29) and (year=2012)) or ((mm=2) and (dd=28) and (year<2012)))
or (((mm=4) or (mm=6) or (mm=9) or (mm=11)) and (dd=30)) or (dd=31) Then
Begin
dd:=0;
mm:=mm+1;
End
Else
 
If (mm=13) and (dd=1) Then
Begin
mm:=1;
year:=year+1;
End
Else
 
End;
 
AssignFile(f, 'output.txt');
  ReWrite(f);
  WriteLn(f, IntToStr(dd)+'/'+IntToStr(mm)+'/'+IntToStr(year));
  CloseFile(f);
 
Break;
End;
End;
 
End;
end.