Заменить все элементы массива - Turbo Pascal (29252)

Формулировка задачи:

Заменить все элементы массива стоящие до максимального нулями. Есть код нахождения максимального, что нужно добавить, что бы массив 2 3 5 6 4 стал массивом 0 0 0 6 4 (числа произвольные)

uses crt;
var
m:array [0..100] of integer;
i,n,max,k:integer;
begin
clrscr;
writeln('vvedite kollichestvo elementov');
readln(n);
writeln('vvedite elementi');
 
 for i:=1 to n do
    begin
     Write('m',i,'->');
      Readln(m[i]);
    end;
   max:=m[1];
    for i:=2 to n do
     if m[i]>max then
      max:=m[i];
    Writeln('Mahksimal"nyi ',max);
  for i:=1 to k-1 do
    m[i]:=0;
  readkey;
writeln('programma zavershena verno');
readln;
end.

Решение задачи: «Заменить все элементы массива»

Листинг программы

uses crt;
var m:array [0..100] of integer;
    i,n,max:integer;
begin
clrscr;
writeln('vvedite kollichestvo elementov');
readln(n);
writeln('vvedite elementi');
for i:=1 to n do
 begin
  Write('m',i,'->');
  Readln(m[i]);
 end;
max:=1;
for i:=2 to n do
if m[i]>m[max] then max:=i;
Writeln('Mahksimal"nyi=',m[max],' Ego index=',max);
for i:=1 to n do
 begin
  if i<max then m[i]:=0;
  write(m[i],' ');
 end;
writeln;
readkey;
writeln('programma zavershena verno');
readln;
end.

Объяснение кода листинга программы

Создаётся переменная m, которая представляет собой массив целых чисел размером от 0 до 100.
Выводится сообщение с просьбой ввести количество элементов, которые нужно заменить.
Пользователю предлагается ввести элементы массива. Для каждого введенного элемента выполняется следующая последовательность действий:
- Выводится сообщение с запросом ввода элемента.
- Элемент сохраняется в соответствующую ячейку массива m.
Вычисляется максимальный элемент массива m.
Для всех элементов массива m, которые больше максимального элемента, значение заменяется на ноль.
Выводится сообщение с информацией о максимальном элементе и его индексе.
Выводится завершающее сообщение.