Преобразовать программу в программный модуль

Program okno;
 uses crt;
 var
   x1,y1,x2,y2: byte;
   color:byte;
     procedure init;
       begin
          writeln(' ');
          readln(x1,y1);
           writeln(' ');
          readln(x2,y2);
          writeln(' ');
          readln(color);
     end;
 procedure MakeWin;
   begin
     window(x1 , y1 , x2, y2);
     textbackground(color);
 clrscr;
 end;
  procedure Print;
   begin
     writeln(' ');
   writeln(' ');
  end;
begin
 clrscr;
 init;
makewin;
print;
end.

unit okna;
interface
uses crt;
var x1,y1,x2,y2: byte;
    color:byte;
procedure init;
procedure MakeWin;
procedure Print;
implementation
procedure init;
begin
writeln('Введите координаты левого верхнего угла окна:');
readln(x1,y1);
writeln('Введите координаты правого нижнего угла окна:');
readln(x2,y2);
writeln('Введите цвет фона');
readln(color);
clrscr;
end;
procedure MakeWin;
begin
window(x1 , y1 , x2, y2);
textbackground(color);
clrscr;
end;
procedure Print;
begin
writeln('11111111');
writeln('22222222');
end;
end.

Program okno;
uses okna,crt;
begin
textbackground(0);
clrscr;
init;
makewin;
print;
readln
end.