Процедуры и файлы доработать программу, народ оч срочно надо до завтра стоит вопрос об отчислении меня пожалуй Опции

[yurja17]

процедуры
создать 2 массива а и в разной длины отсортрровать их бугром то есть чтобы минимумы по краям а в середине максимум , потом записать эти 2 массива в массив С и отсортировать его бугром

гses crt;
Const N=10;M=16;
Type Mas=array[1..N+M] of Integer;
Var a,b,c:Mas;
    i,j,buf,l,h:Integer;
Procedure Sozd_mas(Var d:mas;k:Integer);
 Begin
  For i:=1 to k do d[i]:=Random(50);
 End;

Procedure Viv_mas(Var d:mas;k:Integer);
 Begin
  WriteLn;
  For i:=1 to k do Write(d[i],' ');
 End;

Procedure Sort_mas(Var m:mas;k:boolean;i,a:integer);
begin
repeat
k:=true;
for i:=1 to 9 do
if m[i]>m[i+1] then begin
a:=m[i];
m[i]:=m[i+1];
m[i+1]:=a;
k:=false;
end;
until k=true;
repeat
k:=true;
for i:=11 to 19 do
if m[i]<m[i+1] then begin
a:=m[i];
m[i]:=m[i+1];
m[i+1]:=a;
k:=false;
end;
until k=true;
for i:=1 to 20 do
write(m[i],' ');
readln;
end;
BEGIN
 ClrScr;Randomize;
 Sozd_mas(a,N);
 Write('Массив А->');
 Viv_mas(a,N);WriteLN;
 Write('Массив А_Sort->');
 Sort_mas(a,N);
 Viv_mas(a,N);
 WriteLN;
 Write('Массив B->');
 Sozd_mas(b,M);
 Viv_mas(b,M);
 WriteLn;
 Write('Массив B_Sort->');
 Sort_mas(b,M);
 Viv_mas(b,M);

 For l:=1 to N do c[l]:=a[l];
 h:=0;
 For l:=N+1 to N+M do Begin
                       Inc(h);
                       c[l]:=b[h];
                      End;
WriteLN;
Sort_mas(c,N+M);
Write('Массив С_Sort -> ');
Viv_mas(c,N+M);

End.

помогите доработать
и вот на файлы
Создать три файла: А,В,С из целых чисел. Создать новый файл D из чисел, которые встречаются во всех трех файлах. В файле D числа не должны повторяться

всем огромное спс за ранее