Типизированные файлы.Паскаль.help!

[ромка)]

Организовать файл, содержащий различные даты. Каждая дата – это число, месяц и год. Вывести на экран по нажатию клавиш

1 - год с наименьшим номером;

2 - все весенние даты;

3 - самую позднюю дату;

10 - выход.
Кто решит вознагражу

[mr_s]

Только путь к файлу поменяй в программе [переменная s] (писал быстро поэтому не сделал программного изменения пути к файлу):

program tip_files;

  Uses Crt;

  Var
        F: Text;
        s: String;
        a: Byte;

procedure MinYear(st: String);
  var my, mm, md, year, month, day: String;
      b: String;
      i: Byte;
 begin
  Assign(F, st);
  Reset(F);

  mm:= 'aaaaaaaaaaaaaaaaaaaaaa';
  my:= 'bbbbbbbbbbbbbbbbbbbbbb';
  md:= 'cccccccccccccccccccccc';

  while not EOF(F) do
   begin
    year:= '';
    day:= '';
    month:= '';

    Readln(F, b);

    for i:= Length(b) downto Length(b) - 3 do
     year:= b[i] + year;

    for i:= Length(b) - 5 downto Length(b) - 6 do
     month:= b[i] + month;

    for i:= Length(b) - 8 downto Length(b) - 9 do
     day:= b[i] + day;

    if year < my then
     my:= year;
    if month < mm then
     mm:= month;
    if day < md then
     md:= day;
   end;

  Writeln(md, '.', mm, '.', my);
 end;

procedure SpringDates(st: String);
  var b, month, day, year: String;
      i: Byte;
 begin
  Assign(F, st);
  Reset(F);

  while not EOF(F) do
   begin
    month:= '';
    day:= '';
    year:= '';

    Readln(F, b);

    for i:= Length(b) downto Length(b) - 3 do
     year:= b[i] + year;

    for i:= Length(b) - 5 downto Length(b) - 6 do
     month:= b[i] + month;

    for i:= Length(b) - 8 downto Length(b) - 9 do
     day:= b[i] + day;

    if (month = '03') or (month = '04') or (month = '05') then
     Writeln(day, '.', month, '.', year);

   end;
 end;

procedure LatestDate(st: String);
  var b, month, day, year, my: String;
      i: Byte;
 begin
  Assign(F, st);
  Reset(F);

  my:= 'aaaaaaaaaaaaaaaaaaaaaa';

  while not EOF(F) do
   begin
    month:= '';
    day:= '';
    year:= '';

    Readln(F, b);

    for i:= Length(b) downto Length(b) - 3 do
     year:= b[i] + year;

    for i:= Length(b) - 5 downto Length(b) - 6 do
     month:= b[i] + month;

    for i:= Length(b) - 8 downto Length(b) - 9 do
     day:= b[i] + day;

    if year > my then
     my:= year;
   end;
  Writeln(day, '.', month, '.', year);
 end;

{procedure FilePath;
 begin
  Clrscr;
  Writeln('Enter the path to the file: ');
  Readln(s);
  ShowMenu;
 end;}

procedure ShowMenu;
 begin
  Clrscr;
  Writeln('0 - the path to the file');
  Writeln('1 - min year');
  Writeln('2 - spring dates');
  Writeln('3 - the latest date');
  Writeln('10 - exit');
  Readln(a);

  if a = 1 then
  MinYear(s)
 else
  if a = 2 then
   SpringDates(s)
  else
   if a = 3 then
    LatestDate(s)
   else
    if a = 10 then
     Halt
    else
     if a = 0 then
      {FilePath}
     else
      begin
       Clrscr;
       ShowMenu;
      end;
 end;



Begin

 s:= 'f:\1.txt';
 ShowMenu;

End.

Пользуйся! Если что пиши)