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

type           Country = (England, Denmark, Italy, Russia, Kazakhstan,  Japan);         
Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);  
var Temp : array [Country, Month] of Integer;

  For c:=England to Japan do
    For m:=jan to dec do
      Read(Temp[c,m]);

  For c:=England to Japan do
    If Temp[c,feb]=0
        Then case c of
              England    : writeln('Англия');
              Denmark    : writeln('Дания');
              Italy      : writeln('Италия');
              Russia     : writeln('Россия');
              Kazakhstan : writeln('Казахстан');
              Japan      : writeln('Япония');
            End;

 For c:=England to Japan do 
   If Temp[c,feb]=0 Then 
   case c of 
     England : writeln('Англия'); 
     Denmark : writeln('Дания'); 
     Italy : writeln('Италия'); 
     Russia : writeln('Россия'); 
     Kazakhstan : writeln('Казахстан'); 
     Japan : writeln('Япония'); 
   End;

 If Temp[c,feb]<0

type 
  Country = (England, Denmark, Italy, Russia, Kazakhstan, Japan);
  Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
 
var 
  Temp : array [Country, Month] of Integer; 
  c, cmaxTemp : Country;
  m : Month;
  YearTemp, maxTemp : Integer;
begin
 
 Randomize;
 
 {заполним таблицу случайным образом.
   чтобы 6*12= 72 числа вручную не вводить!!!}
 For c:=England to Japan do 
   For m:=jan to dec do Temp[c,m] := -15 + Random(40); //Read(Temp[c,m]);
 
 {выведем полученную таблицу}
 For c:=England to Japan do  begin
   case c of 
     England : write('Англия    '); 
     Denmark : write('Дания     '); 
     Italy :   write('Италия    '); 
     Russia :  write('Россия    '); 
     Kazakhstan : 
               write('Казахстан '); 
     Japan :   write('Япония    '); 
   End;
 
   For m:=jan to dec do Write(Temp[c,m]:4);
   writeLn
 end;
 
 
 
 {для начала посчитаем сумму температур в первой стране (это Англия) 
    и возьмём это за максимальное значение}
 maxTemp := 0;
 cmaxTemp := England;
 For m:=jan to dec do maxTemp := maxTemp + Temp[England,m];
 
 {найдём ОДНУ страну с максимальной среднегодовой температурой}
 For c:=England to Japan do begin
    YearTemp := 0;
    For m:=jan to dec do YearTemp := YearTemp + Temp[c,m];
    if YearTemp > maxTemp then begin
       cmaxTemp := c;
       maxTemp := YearTemp        
    end;
 end; 
 
 {вывод результатов}
 WriteLn;
 Write('Наибольшая среднегодовая температура ',(maxTemp/12):3:1,' в ');
 case cmaxTemp of 
     England : write('Англии'); 
     Denmark : write('Дании'); 
     Italy : write('Италии'); 
     Russia : write('России'); 
     Kazakhstan : write('Казахстане'); 
     Japan : write('Японии'); 
   End;
 WriteLn;
 
 
 ReadLn
end.