Даю 50 баллов Помогите срочно пожалуйста

Ответ: 2-я задача

program Example2a;

var

 n, i, imax: Integer;

 a: array of Integer;

begin

 Write ('Введите количество элементов массива (N <=10): ');

 ReadLn (n);

 if n <= 10 then begin

   SetLength (a, n);

   Write ('Введите массив: ');

   for i := Low (a) to High (a) do

     Read (A [i]);

   imax := 0;

   for i := Low (a) to High (a) do

     if A [i] > A [imax] then

       imax := i;

   A [imax] := 0;

   WriteLn;

   for i := Low (a) to High (a) do

     Write (A [i], ' ');

 end else

   WriteLn ('Количество превышает 10');

 ReadLn;

end.