Исправить ошибку в программе

Program prac9_2;
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;
 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.