Помогите написать программу не ПАСКАЛе.

Question

Дан одномерный массив. Все чётные элементы или элементы, равные заданному числу m. заменить на максимальный элемент. Предполагается, что максимальный элемент единственный. Число m и элементы массива вводятся с клавиатуры. Вывести на экран полученный массив. (В этом массиве 1000 элементов, но это не так важно) 
Начинается примерно так: 
 program c; 
 var m1:array[1..1000] of integer; 
 m, max, i:integer; 
Begin 
 writeln('Введите элементы массива'); 
 for i:=1 to 3 do readln(m1); 
....

Задача решена, в ответах больше не нуждаюсь. Программа: 
 
 program ch; 
 var m1:array[1..1000] of integer; 
 mx, m, i:integer; 
Begin 
 writeln('Введите элементы массива'); 
 for i:=1 to 1000 do readln(m1); 
 writeln ('Введите число m'); 
 readln(m); 
 mx:=m1[1]; 
 for i:=1 to 1000 do if m1>mx then mxe3A=m1; 
 writeln('Полученный массив: '); 
 for i:=1 to 1000 do if not odd(m1) 
 then write(mx:8) else if m1=m then write(mx:8) else write(m1:8); 
 readln 
 end.

Каламкас · Accepted Answer

const 
 n = 1000; 
var mas : array [1..n] of integer; 
 m, max, i : integer; 
BEGIN 
 Writeln ('Input elements'); 
 for i := 1 to n do 
 readln (mas); 
 max := mas[1]; 
 for i := 2 to n do begin 
 if mas > max then 
 max := mas; 
 end; 
 Writeln ('Input m'); 
 Readln (m); 
 i := 2; 
 Writeln ('Do you want to change m - element? Y N'); 
 Readln (c); 
 If upcase c = 'Y' then 
 mas[m] := max 
 else 
 begin 
 repeat 
 mas := max; 
 i := i+2; 
 until i<=n; 
 end; 
 Writeln ('Your array'); 
 for i := 1 to n do begin 
 Write (mas); 
 Writeln; 
 end; 
 Readln; 
END.