Подпрограмма-процедура

[PHARAoN91]

Заданы два одномерных массива с N элементами, упорядоченными по возрастанию, объединить элементы этих массивов в один массив так, чтобы элементы снова оказались упорядоченными по возрастанию. Реализовать программу с подпрограммой-процедурой.

Ниже приведен текст моей программы. В моем примере два массива объединяются в один, но не сортируются. Можете помощь найти ошибку.

{Объеденить два упорядоченных по убыванию массива}
Program m_concat;
 uses crt;
 type mas=array[1..1000] of real;
  var a,b,c:mas;
      i,j,n,p,k:integer;
 Procedure InputOutput(var d:mas; var x:integer);
begin
  Writeln('Введите размерность N');readln(x);
 For i:=1 to x do
begin
  write(i,' элемент=');
  readln(d[i]);
end;
Writeln('Исходный маccив');
 For i:=1 to x do write(d[i]:4:2,' ');
writeln;
end;
Procedure InputOutput2(var d:mas; x:integer);
begin
  Writeln('Введите следующий массив')
 For i:=1 to x do
begin
  write(i,' элемент=');
  readln(d[i]);
end;
Writeln('Исходный маccив');
 For i:=1 to x do write(d[i]:4:2,' ');
writeln;
end;
 Procedure Slianie( var q,w,e:mas; var x:integer);
  var p,j,l:integer;
begin 
  p := 1; j := 1; l := 1;
 while (p <= x) and (j <= x) do
begin if q[p] <= w[j]
then begin e[l]:= q[p]; p:= p+1 end
  else begin c[l]:= w[j]; j:= j+1 end;
 l := l+1
end;
  if p > n
  then repeat e[l] := w[j]; l:=l+1; j := j+1 until j > n
 else repeat e[l] := q[p]; l:=l+1; p:= p+1 until p > n
end;
 Procedure Output(var d:mas; var x:integer);
Begin
  For i:=1 to x do write(d[i]:4:2,' ');
 writeln;
end;
InputOutput (a,n);
InputOutput2 (b,n);
writeln (‘Полученный масссив’);
Slianie (a,b,c,n);
K:=2*n;
Output (c,k);
writeln;
write (Для выхода нажмите ENTER);
reset (input); readln;
end.

[Leshii]

Procedure Ex2AZ (ExCol:Integer;ExMass:Massiv);
Var
   MassAZ: Massiv;
   Buffer: integer;
   I, J: Integer;
Begin
     For I:=1 To ExCol Do MassAZ[I]:=ExMass[I]; // Excol - твой (x) ну и ExMass - твой (d)
     For I:=1 To ExCol Do
         For J:=I To ExCol Do
             Begin
                  If MassAZ[I]>MassAZ[J] Then
                  Begin
                       Buffer:=MassAZ[J];
                       MassAZ[J]:=MassAZ[I];
                       MassAZ[I]:=Buffer;
                  End;
             End;
     WriteLn ('Упорядочен по возрастанию:');
     For I:=1 To ExCol Do
     Begin
          Write (MassAZ[I]:4,' ');
     End;

Вот тебе процедурка. Теперь осталось тебе орфографией позаниматься. Суть сортировки замена макс. элемента с мин. элементом.

[PHARAoN91]

спасибо...