Заполнить массив из 10 элементов случайными числами и отсортировать первую половину по возрастанию

program qq;
const n=10;
var a:array[1..10] of integer;
i,j,z:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to 4 do
for j:=i+1 to 5 do
if a[i]>a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
for i:=6 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
Write('Результат: ');
for i:=1 to 10 do
Write(a[i]:4);
end.

program qq;
const n=10;
var a:array[1..10] of integer;
i,j,z:integer;
f,f1:textfile;
begin
Assign(f,'f.txt');
  Rewrite(f);
 
  For i:=1 to n do
    Readln(a[i]);
 randomize;
   For i:=1 to n do
   a[i]:=random(10);
  while not Eof(f) do begin
 
for i:=1 to 4 do
read(a[i]);
for j:=i+1 to 5 do
if a[i]>a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
for i:=6 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
for i:=1 to 10 do begin
rewrite(f);
write(f,(a[i]:4));
end;
end;
end.

program qq;
const n=10;
var a:array[1..n] of integer;
    i,j,z:integer;
    f:text;
begin
assign(f,'input.txt');//в Блокноте зписано 10 чисел через пробелы
reset(f);            //файл сохранен в папке с программой
for i:=1 to n do
read(f,a[i]);
close(f);
writeln;
for i:=1 to 4 do
for j:=i+1 to 5 do
if a[i]>a[j] then
 begin
  z:=a[i];
  a[i]:=a[j];
  a[j]:=z;
 end;
for i:=6 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
 begin
  z:=a[i];
  a[i]:=a[j];
  a[j]:=z;
 end;
assign(f,'output.txt'); //файл тоже в папке с программмой
rewrite(f);
Writeln(f,'Результат: ');
for i:=1 to n do
Write(f,a[i]:4);
writeln('Результат записан в файл output.txt');
close(f)
end.