Записи на делфи

[morgan996]

Дан массив из 20 дат (число, месяц, год). Указать все осенние даты, а также самую раннюю дату.


Помогите пожалуйста. Не могу разобраться с программой....для максимальной даты я смог решить, для минимальной не могу. Помогите разобраться....


вот задача на макс дату, помогите изменить для мин даты...

type
dat=record
data:integer;
mes:integer;
god:integer;
end;
   var
mas:array[1..100] of dat;
i:integer;
begin
mas[5].god:=0;
mas[5].data:=0;
mas[5].mes:=0;
for i := 1 to 4 do

begin
  Writeln('Vvedite 4erez enter daty ',i);
  readln(mas[i].data);
  readln(mas[i].mes);
  readln(mas[i].god);
end;
for i:= 1 to 4 do
if (mas[i].mes > 8) and (mas[i].mes < 12) then
Writeln('Osennyaya data ', mas[i].data,'.',mas[i].mes,'.',mas[i].god);

for i:= 1 to 4 do
if mas[i].god>=mas[5].god then
begin
mas[5].god:=mas[i].god;
mas[5].mes:=mas[i].mes;
mas[5].data:=mas[i].data;
end;
if mas[i].mes>=mas[5].mes then
begin
mas[5].mes:=mas[i].mes;
mas[5].data:=mas[i].data;
end;
if  mas[i].data>=mas[5].data then  mas[5].data:=mas[i].data;
Writeln('Poslednia ', mas[5].data,'.',mas[5].mes,'.',mas[5].god);
readln;
end.