Создать модуль в Паскале

uses
  crt;
var
  st: string;
 
function word(st: string;var i: integer): string;
var
  j,m: byte;
  w: string;
begin
  w:='';
  while st[i]=' ' do
    inc(i);
  m:=i;        {nachalo slowa}
  while (st[i]<>' ') and (i<=length(st)) do
    inc(i);    {konec slowa}
  for j:= m to i-1 do
    w:=w+st[j];
  word:=w;
end;
 
procedure outalf;
var
  i,j,m,n: integer;
  s,t: string;
  a: array [1..30] of string;
begin
  i:=1;
  j:=0;
  while i<=length(st) do
  begin
    s:=word(st,i);
    if s<>'' then
    begin
      inc(j);
      a[j]:=s;
    end;
  end;
  for m:= 1 to j-1 do
    for n:= m+1 to j do
      if a[m]>a[n] then
      begin
        t:=a[m];
        a[m]:=a[n];
        a[n]:=t;
      end;
  writeln('*** Po alfavitu ***');
  for i:= 1 to j do
    writeln(a[i]);
end;
 
procedure outwozr;
var
  i,j,m,n: integer;
  s,t: string;
  a: array [1..30] of string;
begin
  i:=1;
  j:=0;
  while i<=length(st) do
  begin
    s:=word(st,i);
    if s<>'' then
    begin
      inc(j);
      a[j]:=s;
    end;
  end;
  for m:= 1 to j-1 do
    for n:= m+1 to j do
      if length(a[m])>length(a[n]) then
      begin
        t:=a[m];
        a[m]:=a[n];
        a[n]:=t;
      end;
  writeln('*** Po wozrastaniu ***');
  for i:= 1 to j do
    writeln(a[i]);
end;
 
begin
  clrscr;
  write('wwedite stroku: ');
  readln(st);
  outalf;
  outwozr;
  readkey;
end.