Файлы записей. Найти самую позднюю дату — Pascal(Паскаль) — CF

составить программы с помощью которых:
-сформировать файл из записей, содержащих различные даты
-найти самую позднюю дату.

Type Data=Record
     Day:1..31;
     Month:1..12;
     Year:integer;
     End;
Var f:file of data;
    st,max:data;
    i,n:integer;
Begin
    write('Введите кол-во дат для ввода: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do
     Begin
      writeln('Введите ',i,'-ю дату: ');
      write('День: ');readln(st.Day);
      write('Месяц: ');readln(st.Month);
      write('Год: ');readln(st.Year);
      write(f,st);
     End;
    Reset(f);
    read(f,max);{Делаем первую дату самой поздней}
    While not Eof(f) do
     Begin
      read(f,st);
      if st.Year>max.Year then max:=st;
      if st.Year=max.Year then 
       if st.Month>max.Month then max:=st;
      if st.Year=max.Year then 
       if st.Month=max.Month then
        if st.Day>max.Day then max:=st;
     End;
    writeln('Самая поздняя дата: ',max.Day,'.',max.Month,'.',max.Year);
    Close(f);
    readln;
End.

Leave a Comment