Разработка процедур и функций , личных библиотек

unit modul;
interface
const nmax=100;
type mas=array[1..nmax] of integer;
var n:byte;
procedure Generate(var a:mas);
procedure Print(var a:mas;k:byte;c:string);
Procedure Merge(a,b:mas;var c:mas;var k:byte);
implementation
procedure Generate(var a:mas);//генерация массива случайных чисел без повторений
var m,i,j:byte;
    x:integer;
    f:boolean;
begin
m:=1;
a[m]:=random(50)-25; //первое число любое
for i:=2 to n do //остальные
 begin
  repeat
  x:=random(50)-25; //генерируем
  j:=1;
  f:=true;
  while (j<=m)and f do
  if x=a[j] then f:=false //проверяем на ниличие в массиве
  else j:=j+1;
  until f; //если еще нет
  m:=m+1;
  a[m]:=x; //добавляем
 end;
end;
procedure Print(var a:mas;k:byte;c:string); //печать массива
var i:byte;
begin
writeln(c);
for i:=1 to k do
write(a[i]:4);
writeln;
end;
Procedure Merge(a,b:mas;var c:mas;var k:byte);//слияние массивов
var i,j:byte;
    f:boolean;
begin
for i:=1 to n do//пишем первый, в нем нет повторений
c[i]:=a[i];
k:=n;
for i:=1 to n do //выбираем из вторго так же как и генерировали
 begin
  f:=true;
  j:=1;
  while (j<=n)and f do
  if b[i]=a[j] then f:=false
  else j:=j+1;
  if f then
   begin
    k:=k+1;
    c[k]:=b[i];
   end;
 end;
end;
end.

uses crt,modul;
var a,b,c:mas;
    m:byte;
begin
randomize;
repeat
write('Размер исходных массивов до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
Generate(a);
Print(a,n,'Исходный массив А:');
Generate(b);
Print(b,n,'Исходный массив B:');
Merge(a,b,c,m);
Print(c,m,'Объединенный массив C:');
end.