Программка "Окна"

[Wardler]

Программка "Окна"

Помогите разобраться с ошибками в написании программы.. - не запускается..

Program ocna11;
uses ocna,crt,dos;
const
x11=3;y11=2;x12=58;y12=12;
x21=3;y21=15;x22=58;y22=23;
x31=62;y31=2;x32=76;y32=12;

var
ch:Char;

begin

Window1(x11,y11,x12,y12);
Window2(x21,y21,x22,y22);
Window3(x31,y31,x32,y32);
ch:= ReadKey;

TextMode(Co80);
End.

------------------------------------------------------------

Unit ocna;
Interface
Uses Crt,dos;
Procedure Window1(x1,y1,x2,y2:Integer);
Procedure Window2(x1,y1,x2,y2:Integer );
Procedure Window3(x1,y1,x2,y2:Integer );
Implementation


Procedure Window1;
var
x:byte;
begin;
Window(x1,y1,x2,y2);
TextBackground(White);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('vvod dannyh');
End;

Procedure Window2;
var
x:byte;

begin
Window(x1,y1,x2,y2);
TextBackground(Yellow);TextColor(Blue);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('Vychisleniy');
End;

Procedure Window3;
var

x:byte;
begin
Window(x1,y1,x2,y2);
TextBackground(Cyan);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
WriteLn('Meny');
WriteLn;

WriteLn('Vvesty <F1>');
WriteLn('Zapisaty <F2>');
WriteLn('Zagruzity <F3>');
WriteLn('Clear <F4>');
WriteLn('Acount <F5>');
WriteLn('Vyhod <F9>');


End;
end.

 

[Wardler]

Вот что должно получиться при запуске:

 

[Wardler]

помогите написать подпрограмму, чтобы модуль открыть..
я не знаю как сделать чтобы все окна сразу отображались..

Unit ocna;
Interface
Uses Crt,dos;
Procedure Window1(x1,y1,x2,y2:Integer);
Procedure Window2(x1,y1,x2,y2:Integer );
Procedure Window3(x1,y1,x2,y2:Integer );
Implementation


Procedure Window1;
var
x:byte;
begin;
Window(x1,y1,x2,y2);
TextBackground(White);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('vvod dannyh');
End;

Procedure Window2;
var
x:byte;

begin
Window(x1,y1,x2,y2);
TextBackground(Yellow);TextColor(Blue);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('Vychisleniy');
End;

Procedure Window3;
var

x:byte;
begin
Window(x1,y1,x2,y2);
TextBackground(Cyan);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
WriteLn('Meny');
WriteLn;

WriteLn('Vvesty <F1>');
WriteLn('Zapisaty <F2>');
WriteLn('Zagruzity <F3>');
WriteLn('Clear <F4>');
WriteLn('Acount <F5>');
WriteLn('Vyhod <F9>');


End;
end.

свой набросок уже скидывал..