Написать программку в паскале которая будет выводить два величайших четных элемента

program zxxxz1;

const n = 10; // задаем в массиве количество чисел 

var  i, k, j, b:integer; // задаем целого типа переменные 

m:array [1..n] of integer;

begin

for i:=1 to n do  // n чисел случайных получаем  и в массив записываем их 

m[i]:=random(51)+150;

for i:=1 to n do  // выводим на экран полученный массив 

write(m[i], );

writeln;    // для вывода ответа перебегаем на новую строку 

for i := 1 to n-1 do

       for j := 1 to n-i do

           if m[j] gt; m[j+1] then begin

               b := m[j];

               m[j] := m[j+1];

               m[j+1] := b

           end;

for i:=1 to n do  // выводим на экран массив приобретенный 

write(m[i], );

writeln;    // для вывода ответа на новую строчку переходим 

for i:=n downto 1 do

if m[i] mod 2 = 0 then begin k:=k + 1; writeln(k, -ый четный наибольший элемент , m[i]);

if k = 2 then break;end;

end.