как добавить в программу процедуры для ввода и обработки массива.

[Kamelok]

Я тут запутался и допустил ошибки и программа не работает. Если не сложно можете исправить. Задание отсортировать по убыванию методом вставок. Вроде всё работало без под процедур.

program Insertion;
Const max=1000;
type arr=array[1..max] of integer;
var mas: arr;
i, j, temp, nom, n: integer;
procedure enter(var m: mas);
var
  i: word;
  str: string;
  flag: boolean;
  K: integer;
begin
  write('Выберите способ запонения массива: 1 - вручную, 2 - случайными числами: ');
  repeat
    readln(str);
    if str = '1' then flag := true
    else if str = '2' then flag := false
    else if (str <> '1') and (str <> '2') then                                              writeln('Ошибка! Повторите ввод');
  until (str = '1') or (str = '2');
  writeln('Количество чисел, которые хотите ввести, но не больше',L);
  repeat
    readln(L);
    if (L > N) or (L < 1) then writeln('Ошибка! Повторите ввод');
  until (L <= N) and (L >= 1); 
  if flag = false then 
  begin
    writeln('Введите максимально возможное генерируемое число, от 0 до 1000');
    repeat
      readln(K);
      if(K > 1000) or (K <= 0) then writeln('Ошибка! Повторите ввод');
    until (0 < K) and (k < 1000);
    randomize;
    for i := 1 to L do 
      begin
        m[i] := random(0, K);
        writeln('m', i, '=', m[i]); 
      end;
  end
    else  
  begin
    writeln('Введите числа вручную');
    for i := 1 to L do 
    begin
      write('m[', i, ']='); 
      read(m[i]); 
    end; 
  end;
end;

procedure Insert(mas: arr; n: integer);
begin
for i:=1 to K-1 do
begin
nom:=i+1;
temp:=mas[nom];
for j:=i+1 downto 2 do
begin
if (temp>mas[j-1]) then
begin
mas[j]:=mas[j-1];
nom:=j-1;
end;
mas[nom]:=temp;
end;
end;
end;


procedure conclusion(mas: arr; n: integer);
begin
 write('Sorted array: ');
  for i:=1 to n do write(mas[i], ' ');
 end;
begin 
write(' Number of elements in the array = '); read(n);
 for i:=1 to n do
end.

begin
  writeln('Данная программа находит среди введенных чисел самое большое и самое маленькое и считает разность между ними.');
  enter(m); 
  Insert(mas, n); 
  conclusion; 
end.