Определить три стоящих подряд числа, сумма которых максимальна

const n=10;
var f:text;
    a:array[1..n] of integer;
    i,imx,mx:integer;
begin
assign(f,'z.in');
reset(f);
for i:=1 to n do
read(f,a[i]);
close(f);
imx:=1;
mx:=0;
for i:=1 to n-2 do
if a[i]+a[i+1]+a[i+2]>mx then
 begin
  imx:=i;
  mx:=a[i]+a[i+1]+a[i+2]
 end;
assign(f,'z.out');
rewrite(f);
writeln(f,mx);
for i:=1 to n do
 begin
  if i in [imx..imx+2] then a[i]:=0;
  write(f,a[i],' ')
 end;
close(f);
end.

const n=10; //кол-во чисел
var f:text; //файловая переменная
    a:array[1..n] of integer;//массив
    i,imx,mx:integer;//счетчик индекс первого макс. сумма
begin
assign(f,'z.in'); //связываем переменную с файлом на диске
reset(f);//открываем его для чтения
for i:=1 to n do
read(f,a[i]);//читаем 10 чисел
close(f);//закрываем файл
imx:=1;//индекс первого числа из трех
mx:=0; //максимальная сумма
for i:=1 to n-2 do//от первого числа проверяем суммы все троек чисел
if a[i]+a[i+1]+a[i+2]>mx then//если очередная сумма больше предыдущей
 begin
  imx:=i;//запомним индекс первого
  mx:=a[i]+a[i+1]+a[i+2]//запомним сумму
 end;
assign(f,'z.out');//создаем новый файл
rewrite(f);  //и открываем для записи
writeln(f,mx);//запишем в файл максимальную сумму
for i:=1 to n do //запишем массив
 begin
  if i in [imx..imx+2] then a[i]:=0;//заменяя эти 3 числа нолями
  write(f,a[i],' ')//в файл
 end;
close(f); //закрываем файл
end.