Дан файл f

[~Studentka~]

Всем Привет =) помогите кто нибуть пожалуйста!
Дан файл f, содержащий различные даты. Каждая дата -
это число, месяц и год. Найти:
а) год с наименьшим номером;
б) все весенние даты;
в) самую позднюю дату.

+ блок схема если у кого нибуть получится

[Пепел Феникса]

1)язык какой?
2а)ваши наработки?
2б)если наработок нет, то ваша цена?
ЗЫ, если вы думаете что от того что вы девушка я брошусь сразу решать, то вы ошиблись.
с уважением Феникс.

[Alex_FF]

в качестве примера

Program Project1;

Const
     Source = 'input.txt';
     Target = 'output.txt';
     Qmax = 100;
Type
    Date = Record
         Day, Month, Year: Integer;
    end;

Var
   D: Array[1..Qmax] of Date;
   I, N, MinYear: Integer;
   R: Date;
Begin
     Assign(Input, Source);
     Reset(Input);
     Assign(Output, Target);
     Rewrite(Output);
     N := 0;
     While Not EOF Do
     Begin
          Inc(N);
          ReadLn(D[N].Day, D[N].Month, D[N].Year);
     End;
     If N = 0 Then Exit;
     MinYear := D[1].Year;
     For I := 1 To N Do
         If D[I].Year < MinYear Then MinYear := D[I].Year;
     WriteLn('Мин. Год: ', MinYear);
     WriteLn('Весенние даты:');
     For I := 1 To N Do
         If (D[I].Month >= 3) And (D[I].Month <= 5) Then WriteLn(D[I].Day, ' ', D[I].Month, ' ', D[I].Year);
     R := D[1];
     For I := 1 To N Do
     Begin
          If D[I].Year > R.Year Then R := D[I];
          If D[I].Year = R.Year Then
          Begin
               If D[I].Month > R.Month Then R := D[I];
               If D[I]. Month = R.Month Then
                  If D[I].Day > R.Day Then R := D[I];
          End;
     End;
     WriteLn('Самая поздняя дата: ', R.Day, ' ', R.Month, ' ', R.Year);
End.