Из элементов массива сформировать одномерный массив

program lab_5;
const n=10;
type mas=array[1..n] of integer;
var
a,b:mas;
i,j,s,m,k,buf:integer;
f:text;
begin
assign(f,'mas.pas');
reset(f);
for i:=1 to n do read (f,a[i]);  {ввод из файла}
rewrite (f);
for i:=1 to n do write (f,a[i],' ');
 writeln(f);
 
       for i:=2 to n  do begin   {просчитываем число элементов в новом массиве и присваиваем значения элементов старого массива элементам нового}
       if i mod 2 = 0 then
       if a[i]<>0 then
                 begin
                 m:=m+1;
                 k:=k+1;
                 b[k]:=a[i];
                 end;
                         end;
                         
       if m<>0 then begin
        for s:=1 to m-1 do              {сортировка нового массива}
       for  k:=1 to m-s do if b[k]<b[k+1]
                        then begin
                        buf:=b[k];
                        b[k]:=b[k+1];
                        b[k+1]:=buf;
                        end;
       append(f);
       writeln(f,'полученный массив');
       for k:=1 to m do write(f,b[k],'  ');
       end
               else begin
               append(f);
               writeln(f,'массив пуст');
               end;
close(f);
end.

program lab_5;
uses crt;
const n=10;
type mas=array[1..n] of integer;
var x,a:mas;
    i,m,k,buf:integer;
begin
writeln('Введите элементы массива Х, целые числа:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  read (x[i]);
 end;
clrscr;
writeln('Исходный массив Х:');
for i:=1 to n do
write (x[i],' ');
writeln;
m:=0;
for i:=1 to n  do
if (x[i]<>0)and(i mod 2=0) then
 begin
  m:=m+1;
  a[m]:=x[i];
 end;
if m=0 then write('Искомых элементов нет')
else
 begin
   for i:=1 to m-1 do              {сортировка нового массива}
   for  k:=1 to m-i do
   if a[k]<a[k+1]then
     begin
      buf:=a[k];
      a[k]:=a[k+1];
      a[k+1]:=buf;
     end;
    writeln('Полученный массив');
    for i:=1 to m do
    write(a[i],'  ');
  end;
end.