Pascal!!!В одномерном массиве размерностью n=10 отсортировать по возрастанию четные элементы массива.Вывести исходный

Program newmassiv;uses crt;typematr=array[1..10] of integer;vara: matr;procedure vvod(var a:matr);vari: integer;beginfor i:=1 to 10 dobeginwrite (\'Введите элемент массива a[\',i,\']\');readln(a[i]);end;end;procedure ivyvod(var a: matr);var i: integer;beginwrite (\'Исходный массив \');for i:=1 to 10 dowrite (a[i],\' \');writeln;end;procedure sort(var a:matr);vari,j,min: byte; vsp: integer;beginfor i:=1 to 9 dobeginmin:=i;for j:=i+1 to 10 doif a[j]<a[min] then min:=j;vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;end;end;procedure vyvod(a:matr);vari:integer;beginwrite(\'Отсортированная последовательность массива \');for i:=1 to 10 dobeginif a[i] mod 2 = 0 then write(\' \',a[i]);end;end;beginvvod(a);ivyvod(a);sort(a);vyvod(a);end.