ПаскальЗаполнить с клавиатуры массив из 10 элементов. Еслиминимальный элемент находится в первой половине массива увеличить каждый четный элемент

(Паскаль)2.Заполнить с клавиатуры массив из 10 элементов. Если
минимальный  элемент находится в  первой 
половине массива увеличить каждый четный элемент массива  в два раза, в противном случае массив
оставить без изменения.    Вывести новый
массив на экран в виде строки.

  • program chik3;
    var a:array[1..1000]of integer;
    i,min,l:integer;
    begin
    for i:=1 to 10 do
    begin
    read(a[i]);
    end;
    min:=a[1];l:=1;
    for i:=2 to 10 do
    begin
    if(a[i]<min)then begin
    min:=a[i];
    l:=i;
    end;
    end;
    for i:=1 to 5 do
    begin
    if(a[i]=min)then l:=-50;
    end;
    if(l=-50)then begin
    for i:=1 to 10 do
    begin
    if(a[i] mod 2=0)then a[i]:=a[i]*2;
    end;
    end;
    for i:=1 to 10 do
    begin
    write(a[i],' ');
    end;
    end.