Pascal. B массиве хранится информация о среднедневной температуре июля. Определить количество ДВУХ САМЫХ ТЁПЛЫХ ДНЕЙ! Пожалуйста, сделайте уже кто-нибудь :)!

1. "Современный вариант"// PascalABC.Net 3.0, сборка 1076begin  var t:=ArrRandom(31,18,39);  Writeln('Температуры июля',#13#10,t);  Writeln('Температуры двух самых теплых дней: ',  t.OrderByDescending(x->x).Take(2))end.Тестовое решение:Температуры июля[25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25]Температуры двух самых теплых дней: [37,34]2. "Школьный вариант."// PascalABC.Net 3.0, сборка 1076var  t:array[1..31] of integer;  i,max,max2:integer;begin  Randomize;  Writeln('Температуры июля');  max:=0; max2:=0;  for i:=1 to 31 do begin    t[i]:=Random(22)+18;    Write(t[i],' ');    if t[i]>max then begin max2:=max; max:=t[i] end    else      if t[i]>max2 then max2:=t[i]    end;  Writeln;  Writeln('Температуры двух самых теплых дней: ',max,', ',max2)end.Тестовое решение:Температуры июля23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20 Температуры двух самых теплых дней: 38, 37