Написать программу, которая заполняет одномерный массив А(10) различными числами. Отсортировать по возрастанию первые пять элементов этого массива — Pascal(Паскаль)

var
i,j,tmp:integer;
a: array[1..10] of integer;
begin


For i:=1 to 10 do
read(a[i]);
{Сортировка}
for i:=9 downto 5 do
    for j:=1 to i do
        if a[j]>a[j+1] then begin
            tmp:= a[j];
            a[j]:= a[j+1];
            a[j+1]:= tmp;
        end;
write('Вывод значений массива: ');
for i:=1 to 10 do
    write(a[i]:4);
writeln;
end.