Как составить программу с подпрограммами

program shestnadcat;
uses crt;
type
 massiv=array[1..10]of real;
var
 a:massiv;
 k,l:real;
procedure vvod(n:integer;
               var
                  x:massiv);
var
 i:integer;
begin
 for i:=1 to n do
  begin
    write('x[',i:2,']=>');
    readln(x[i])
  end;
  clrscr
end;
procedure vivod(n:integer;
               var
                  x:massiv);
var
 i:integer;
begin
for i:=1 to n do
write(x[i]:5:2,'');
writeln
end;
procedure shet(n,m:integer;
              var
                 k,l:real;
                 x1:massiv);
var
 i:integer;
begin
for i:=1 to n do
if(x1[i]<k)
  then begin
     for i:=1 to m do
          if (x1[i]<0)
           then x1[i]:=sqr(x1[i])
     end
  else x1[i]:=x1[i]*l
end;
begin
writeln('Введите вектор А');
vvod(5,a);
writeln('Исходный вектор А');
vivod(5,a);
writeln('Введите К');
readln(k);
writeln('Введите L');
readln(l);
shet(5,5,k,l,a);
writeln('Измененный вектор А');
vivod(5,a)
end.

const n=10;
type mas=array[1..n] of real;
 
procedure vivod(a:mas);
var i:byte;
begin
  for i:=1 to n do write(a[i]:0:3,' ');
  writeln;
end;
 
procedure zam(var a:mas; k,l:real);
var i:byte; b:boolean;
begin
  b:=false;
  for i:=1 to n do
    if a[i]<k then begin
      b:=true; break;
    end;
  if b then for i:=1 to n do begin //begin и end чтобы else относился к первому if
      if a[i]<0 then a[i]:=sqr(a[i]); end
  else for i:=1 to n do a[i]:=a[i]*l;
end;
 
var
  a:mas;
  k,l:real;
  i:byte;
begin
  for i:=1 to n do a[i]:=-20+40*random;
  vivod(a);
  write('Введите K и L: '); readln(k,l);
  zam(a,k,l);
  vivod(a);
end.