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

1. "Современный вариант" // PascalABC.Net 3.0, сборка 1076 begin   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, сборка 1076 var   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