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

uses
  crt;
const
  n=10;
var
  i,j,temp:integer;
  a:array[1..n] of integer;
  fl:boolean;
begin
  
  for i:=1 to n do
  begin
    repeat
      a[i]:=random(100)-50;
      fl:=true;
      for j:=1 to i-1 do
        if a[i]=a[j] then
        begin
          fl:=false;
          break
        end
    until
      fl;
    write(a[i]:2, ' ');
  end;
  writeln;

  for i:=1 to 4 do
    for j:=i+1 to 5 do
      if a[i]> a[j] Then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp;
      end;
 
  for i:=1 to n do
    write(a[i]:2, ' ')
end.