Дан массив из 7 элементов. заменить все элементы массива цифрой два, кроме максимального элемента.

Задание 5.
program untitled;
const N=3;
var max,i,num:integer;
    m:array [1..N] of integer;
begin max:=-1000;
 for i:=1 to N do
  readln(m[i]);
 for i:=1 to N do begin
  if ((m[i]>m[i+1]) and (m[i]>max)) then begin
    max:=m[i];
    num:=i;
   end;
  end;
 for i:=1 to N do begin
     if i<>num then
      m[i]:=2;
 end;
  for i:=1 to N do begin
   write(m[i]);
   write(',');
  end;
end.