Разбить программу на подпрограммы

program main;
type
  m=array [1..100] of integer;
var
  a:m;
  
procedure inp(var a:m; var n:integer);
var
  i:integer;
begin
  write('введите количество элементов массива ');
  readln(n);
  for i:=1 to n do begin
      write('введите элемент ');
      readln(a[i]); 
    end;
    end;
    
procedure out(var a:m; var n:integer);
var
  i:integer; 
  begin
write ('исходный массив ');
  for i:=1 to n do
  begin
      write(a[i]:2,' ');
end;
writeln
end;
 
 
procedure del(var a:m; var n:integer);
var
  i,k:integer;
begin
k:=0;
  for i:=1 to n do 
  if a[i]*14<>0 then
  begin
  k:=k+1;
  a[k]:=a[i];
  end;
  write ('конечный массив ');
  for i:=1 to k do
  write(a[i]:2,' ');
    end;
    
procedure sor(var a:m; var k:integer);
var
  i,p,obm:integer;
begin
repeat
p:=0;
for i:=1 to k-1 do
if a[i]>a[i+1] then
begin
obm:=a[i];
a[i]:=a[i+1];
a[i+1]:=obm;
p:=1;
end;
until p=0;
writeln;
write ('отсортированный массив ');
for i:=1 to k do 
write (a[i]:2,' ');
      end;
   
   var
n,k:integer; 
begin
  inp(a,n);
  out(a,n);
  del(a,n);
  sor(a,n);
 
    end.

procedure del(var a:m; var n:integer);
begin
.........................
  n:=k;
end;

type
    TArray = Array[Byte] Of Integer;
procedure Print(const arr: TArray; const n: Byte);
var
    i: Byte;
begin
    Write('исходный массив:');
    for i := 0 to n - 1 do
        Write(arr[i]:3);
    WriteLn;
end;
procedure Input(var arr: TArray; var n: Byte);
var
    i: Byte;
begin
    repeat
        Write('введите количество элементов массива (1..255): ');
        ReadLn(n);
    until (n > 0);
    Randomize;
    for i := 0 to n - 1 do
        arr[i] := Random(19) - 9;
    Print(arr, n);
end;
procedure DelZero(var arr: TArray; var n: Byte);
var
    i, j: Byte;
begin
    i := 0;
    while (i < n) do
    begin
        if (arr[i] = 0)
        then
        begin
            for j := i + 1 to n - 1 do
                arr[j - 1] := arr[j];
            Dec(n);
        end
        else
            Inc(i);
    end;
    Print(arr, n);
end;
procedure Sort(var arr: TArray; var n: Byte);
var
    i, j: Byte;
procedure Swap(var x, y: Integer);
var
    z: Integer;
begin
    z := x;
    x := y;
    y := z;
end;
begin
    for i := 0 to n - 1 do
        for j := 0 to n - i - 1 do
            if (arr[j] > arr[j + 1])
            then
                Swap(arr[j], arr[j + 1]);
    Print(arr, n);
end;
var
    a: TArray;
    n: Byte;
begin
    Input(a, n);
    DelZero(a, n);
    Sort(a, n);
end.