Определить месяц, в котором было максимальное отклонение от плана выпуска продукции

program variant10;
uses crt;
type obiem =array [1..12]of real;
var
i:integer;
mesiac:obiem;
max:real;
begin
for i:=1 to 12 do;
begin
writeln ('Vvedite obiem za 1 mesiac');
readln (mesiac[i]);
end;
max:=mesiac [1];
for i:=2 to 12 do 
if max <mesiac [i] then max :=mesiac[i];
writeln (;Maksimalnoe otklonenie ot plana =' ,max :10:2);
end.

program prog;
 
uses
  crt;
var
  i: integer;
  planOnMonth: real;            // месячный план
  maxDevation: real;            // максимальное отклонение от плана
  imaxDevation: integer;        // номер месяца с максимальным отклоненимем от плана
  month: array [1..12] of real; 
begin
  write('Mesiachniy plan: ');
  readln(planOnMonth);
 
  for i:= 1 to 12 do
  begin
    write('Vvedite obiem za ',  i, ' mesiac: ');
    readln(month[i]);
  end;
 
  maxDevation:= planOnMonth - month[1];
  imaxDevation:= 1;
 
  for i:= 2 to 12 do begin
    if planOnMonth - month[i] > maxDevation then begin
      maxDevation:= planOnMonth - month[i];
      imaxDevation:= i;
    end;
  end;
 
  if maxDevation <= 0 then
    writeln('Otkloneniy ot plana net.')
  else begin
    write('Maksimalnoe otklonenie ot plana: ', imaxDevation, ' mesiac -> ', maxDevation:0:2);
    writeln('(', trunc(maxDevation / planOnMonth * 100), '%)');
  end;
 
  ReadKey;
end.

WriteLn('Press any key to exit...');
ReadKey;