Заданы два вещественных массива X(n) u Y(n) ...

program tmp;
uses crt;
const
     count=100;
type
    arr=array[1..count] of real;
var
   i,n,m:integer;
   x,y,z:arr;
 
procedure inputmas(n:integer; var mas:arr);
var
   i:integer;
begin
 for i:=1 to n do readln(mas[i]);
end;
 
procedure writemas(m:integer; mas:arr);
var
   i:integer;
begin
 for i:=1 to m do write(mas[i]:2:2,' ');
end;
 
function average(n:integer; mas:arr):real;
var
   i:integer;
   sum:real;
begin
 sum:=0;
 for i:=1 to n do sum:=sum+mas[i];
 average:=sum/n;
end;
 
procedure formation(n:integer; mas1,mas2:arr; var rezmas:arr; var m:integer);
var
   i:integer;
begin
 m:=0;
 for i:=1 to n do if mas1[i]>average(n,mas2) then begin
                                                  m:=m+1;
                                                  rezmas[m]:=mas1[i];
                                                  end;
 for i:=1 to n do if mas2[i]>average(n,mas1) then begin
                                                  m:=m+1;
                                                  rezmas[m]:=mas2[i];
                                                  end;
 end;
 
procedure sorting(m:integer; var rezmas:arr);
var
   i,k:integer;
   buf:real;
begin
 for i:=1 to m-1 do
     for k:=i+1 to m do
         if rezmas[i]>rezmas[k] then begin
                           buf:=rezmas[i];
                           rezmas[i]:=rezmas[k];
                           rezmas[k]:=buf;
                           end;
end;
 
begin
 clrscr;
 randomize;
 write('input n: '); readln(n); clrscr;
 write('array x: '); writeln;
 inputmas(n,x); clrscr;
 write('array y: '); writeln;
 inputmas(n,y); clrscr;
 write('array x: '); writeln;
 writemas(n,x); writeln;
 write('array y: '); writeln;
 writemas(n,y); writeln;
 {write('average x: ',average(n,x):2:2); writeln;
 write('average y: ',average(n,y):2:2); writeln;}
 formation(n,x,y,z,m);
 sorting(m,z);
 write('array z: '); writeln;
 writemas(m,z);
 readkey;
end.