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