Пожалуйста помогите написать программу на Pascal

program ttt;
var ar1 : array[1..100] of real;
   i, i_max, m : integer;
   b, max : real;
begin
   write('Введите размерность массива вещественных чисел: (не больше 100 !) М=');readln(m);
   max := 0;
   for i:= 1 to m do
   begin
        write('введите елемент массива Х[',i,']=');readln(ar1[i]);
        if max < ar1[i] then
        begin
             i_max := i;
             max := ar1[i];
        end;      
   end;
   write('Введите значение, на которое необходимо заменить элементы массива, стоящие за максимальным: B=');readln(b);
   
   writeln('Максимальное значение массива Х[',i_max,'] = ',max:10:6);
   writeln('Результативный массив : ');
   for i:= 1 to m do
   begin
        if (i > i_max)  then ar1[i] := b;
        writeln('X[',i,']=',ar1[i]:10:6);
   end;
end.