Ввести одномерный массив состоящий из четырех элементов. найти максимальный элемент. если он меньше 250 то вывести на экран удвоенный максимальный элемент иначе вывести на экран максимальный элемент без изменений

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(4,1,500); // создали массив
  a.Println; // распечатали его элементы
  var max:=a.Max;
  if max<250 then Writeln(2*max)
  else Writeln(max)
end.

Program vh21;
var i,max:integer;M:array [1..4] of integer;
begin 
 for i:=1 to 4 do 
  begin 
   Writeln('Введите ',i,' элемент массива'); 
   Readln(m[i]); 
  end;
 max:=m[i];   
 for i:=1 to 4 do  
  if max<m[i] then max:=m[i]; 
 if max>250 then max:=max*2 ;
 Writeln('Максимальный элемент равен =',max)  
end.