Помогите разобраться с ошибками в написании программы.. - не запускается..
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.