Разделение программы на отдельные модули (Паскаль)

[Olya1]

Доброй ночи, программисты
Очень нужна ваша консультация: я оформляю задачу (даны 2 файла с упорядоченными числами и слить их в 3ий файл). Задачу необходимо разбить на части. Вот я попыталась разбить её, но, наверное, не правильно это сделала Проверьте пожалуйста.

ОСНОВНАЯ ПРОГРАММА(выполняется слияние)

Program leto;
Uses crt, opis, sozd;
Begin
Clrscr;
Soz;
Reset(F1);
i := 0;
while not Eof(F1) do begin
i := i + 1;
Read(F1, Arr[i]);
end;
Reset(F2);
while not Eof(F2) do begin
Readln(F2, Num);
j := 1;
while (j <= i) and (Arr[j] < Num) do begin
j := j + 1;
end;


asm
 mov  bx,j
 cmp  bx,i
 ja   @Ex
 mov  cx,i
 mov  bx,cx
 shl  bx,1
@loop:
 cmp  cx,j
 jb   @Ex
 mov  ax,word ptr Arr[bx-2]
 mov  word ptr Arr[bx],ax
 sub  bx,2
 dec  cx
 jmp  @loop
@Ex:
 mov  ax,Num
 mov  bx,j
 shl  bx,1
 mov  word ptr Arr[bx-2],ax
end;


i := i + 1;
end;
Rewrite(F3);
for j := 1 to i do begin
if j > 1 then Writeln(F3);
Write(F3, Arr[j]);
end;
Flush(F3);
reset(f3);
Writeln('rezultat raboti v F3:');
while not eof(f3) do begin
read (f3, i);
write(i:3);
end;
Close(F1);
Close(F2);
Close(F3);
writeln;
Writeln('Rezultati sohraneni:');
Writeln(Fn1, ', ', Fn2, ', ', Fn3);
Readln;
end.

МОДУЛЬ ОПИСАНИЯ

Unit opis;
Interface
Const
Fn1 = 'file1.txt';
Fn2 = 'file2.txt';
Fn3 = 'file3.txt';
N = 100;
var
F1, F2, F3 : Text;
i, j, k, Num, g : Integer;
Arr : array[1..N] of Integer;
Implementation
End.

Модуль создания 2ух файлов с упорядоченными числами

Unit sozd;
Interface 
Uses crt, opis;
Procedure soz;
Implementation
Procedure soz;
Begin
Assign(F1, Fn1);
Assign(F2, Fn2);
Assign(F3, Fn3);
Rewrite(F1);
i := 0;
while i <= 10 do begin
if i > 0 then Writeln(F1);
Write(F1, i);
i := i + 2;
end;
Flush(F1);
Rewrite(F2);
i := 1;
while i <= 10 do begin
if i > 1 then Writeln(F2);
Write(F2, i);
i := i + 2;
end;
Flush(F2);
End;
End.

[GetMax]

ИМХО модуль opis здесь не нужен. Вы описали в нем переменные. И что дальше? В этом модуле ничего не реализуется. Я бы сделал так. В первый модуль поместил создание 2х исходных файлов и сортировку массива на ассемблере. Во втором модуле реализовал слияние 2х исходных файлов в третий. А в основной программе просто вызвал необходимые процедуры.