Как привязать модуль к программе?

unit AdminPanel_module;
interface
uses crt,  graphabc;
type
    users = record
           id:integer; // ID пользователя
           login:string[25]; // Логин пользователя
           pass:string; // Пароль пользователя
           access:byte; // Права пользователя
           enabled:boolean; // Переменная, отвечающая за включение или выключение пользователя
     end;
var
   bulba:Picture;
   menu: array[1..5] of string; // Массив, который хранит пункты меню
   logins: array[1..100] of string; // Массив логинов, которые отображаются в программе
   countMenu, // Переменная, хранящая количество пунктов меню
   indexMenu, // Переменная, хранящая местоположение курсора в меню
   indexLogins, // Переменная, хранящая местоположение курсора в списке пользователей
   fileuserssize, // Переменная, хранящая количество пользователей, записанных в файл
   i,
   left,
   top,
   width,
   height: integer;
   container: boolean; // Переменная, которая изменяется в зависимости от окна где находится курсор
   key: char; // Переменная в которую записывается нажатая клавиша клавиатуры
   f: file of Users; // Переменная, которая связывается с файлом,где хранятся пользователи
   user: Users;
implementation // Реализация процедур и функций модуля
procedure deleteUser;
var h: integer;
    str, login, pass: string;
begin
     reset(f);
     while not eof(f) do
     begin
          read(f, user);
          if (logins[indexLogins]=user.login) then h:=filepos(f);
     end;
     seek(f, h-1);
     read(f, user);
     user.enabled:=false;
     seek(f, h-1);
     write(f, user);
     close(f);
end;
procedure changeUser;
var str, login, pass, access: string;
    h, y: integer;
    
begin
     rectangle(0, 8, 212, 309);
     window(2, 2+height+1, 2+width, 2+height+2);
     write('Изменение пользователя');
     window(2, 2+height+2, 2+width, 2+height+2+16);
     reset(f);
     while not eof(f) do
     begin
          read(f, user);
          if logins[indexLogins]=user.login then h:=filepos(f);
     end;
     seek(f, h-1);
     read(f, user);
     close(f);
     write('Текущий логин: ');
     writeln(user.login);
     write('Новый логин: ');
     login:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if ((ord(key) >= 65) and (ord(key) <= 90)) or ((ord(key) >= 97) and (ord(key) <= 122))
          and (length(login)<25) then
          begin
               login:=login+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(login)>0 then
               begin
                    login:=copy(login, 1, length(login)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Новый логин: ')+1, y);
                    clreol;
                    write(login);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               writeln;
               break;
          end;
     end;
     write('Текущий пароль: ');
     writeln(user.pass);
     write('Новый пароль: ');
     pass:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if ((ord(key) >= 65) and (ord(key) <= 90)) or ((ord(key) >= 97) and (ord(key) <= 122))
          and (length(pass)<25) then
          begin
               pass:=pass+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(pass)>0 then
               begin
                    pass:=copy(pass, 1, length(pass)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Новый пароль: ')+1, y);
                    clreol;
                    write(pass);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               writeln;
               break;
          end;
     end;
     write('Текущие права: ');
     case user.access of
          1: writeln('Администратор');
          2: writeln('Кассир');
          4: writeln('Кадровик');
          5: writeln('Склад');
     end;
     writeln('1 - Администратор');
     writeln('2 - Кассир');
     writeln('4 - Кадровик');
     writeln('5 - Склад');
     write('Новые права: ');
     access:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if (ord(key)>=49) and (ord(key)<=53) and (length(access)<1) then
          begin
               access:=access+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(access)>0 then
               begin
                    access:=copy(access, 1, length(access)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Новые права: ')+1, y);
                    clreol;
                    write(access);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               writeln;
               break;
          end;
     end;
     
     if login<>'' then user.login:=login;
     if pass<>'' then user.pass:=pass;
     if access<>'' then user.access:=strtoint(access);
     reset(f);
     seek(f, h-1);
     write(f, user);
     close(f);
     indexLogins:=0;
end;
procedure addUser;
var login, pass, access: string;
    y, id: integer;
    equals: boolean;
    user1: users;
begin
     textbackground(15);
     rectangle(0, 88, 212, 400);
     window(2, 2+height+1, 2+width, 2+height+2);
     textbackground(4);
     write('Добавление пользователя');
     window(2, 2+height+2, 2+width, 2+height+2+16);
     write('Введите логин: ');
     login:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if ((ord(key) >= 65) and (ord(key) <= 90)) or ((ord(key) >= 97) and (ord(key) <= 122))
          and (length(login)<25) then
          begin
               login:=login+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(login)>0 then
               begin
                    login:=copy(login, 1, length(login)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Введите логин: ')+1, y);
                    clreol;
                    write(login);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               reset(f);
               while not eof(f) do
               begin
                    read(f, user);
                    if login=user.login then
                    begin
                         equals:=true;
                         break;
                    end;
               end;
               close(f);
               if equals then
               begin
                    writeln;
                    writeln('Пользователь с таким логином уже существует!');
                    write('Введите логин: ');
                    y:=wherey;
                    login:='';
                    equals:=false;
               end else if login='' then
               begin
                    writeln;
                    writeln('Логин не может быть пустым!');
                    write('Введите логин: ');
                    y:=wherey;
               end else
               begin
                    writeln;
                    break;
               end;
          end;
     end;
     write('Введите пароль: ');
     pass:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if ((ord(key) >= 65) and (ord(key) <= 90)) or ((ord(key) >= 97) and (ord(key) <= 122))
          and (length(pass)<25) then
          begin
               pass:=pass+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(pass)>0 then
               begin
                    pass:=copy(pass, 1, length(pass)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Введите пароль: ')+1, y);
                    clreol;
                    write(pass);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               if pass='' then
               begin
                    writeln;
                    writeln('Пароль не может быть пустым!');
                    write('Введите пароль: ');
                    y:=wherey;
               end else
               begin
                    writeln;
                    break;
               end;
          end;
     end;
     writeln('1 - Администратор');
     writeln('2 - Кассир');
     writeln('3 - Бухгалтер');
     writeln('4 - Кадровик');
     writeln('5 - Склад');
     write('Права: ');
     access:='';
     y:=wherey;
     while true do
     begin
          key:=readkey;
          if (ord(key)>=49) and (ord(key)<=53) and (length(access)<1) then
          begin
               access:=access+key;
               write(key);
          end;
          if key=#0 then key:=readkey;
          if key=#8 then
          begin
               if length(access)>0 then
               begin
                    access:=copy(access, 1, length(access)-1);
                    while wherey<>y do
                    begin
                         delline;
                         gotoxy(wherex, wherey-1);
                    end;
                    gotoxy(length('Права: ')+1, y);
                    clreol;
                    write(access);
               end;
          end;
          if key=#27 then
          begin
               exit;
          end;
          if key=#13 then
          begin
               if access='' then
               begin
                    writeln;
                    writeln('Пользователь должен быть с правами!');
                    writeln('1 - Администратор');
                    writeln('2 - Кассир');
                    writeln('3 - Бухгалтер');
                    writeln('4 - Кадровик');
                    writeln('5 - Склад');
                    write('Права: ');
                    y:=wherey;
               end else
               begin
                    writeln;
                    break;
               end;
          end;
     end;
     user.login:=login;
     user.pass:=pass;
     user.access:=strtoint(access);
     user.enabled:=true;
     id:=1+random(101);
     reset(f);
     while not eof(f) do
     begin
          read(f, user1);
          if id=user1.id then
          begin
               id:=1+random(101);
               seek(f, filepos(f)-1);
          end;
     end;
     user.id:=id;
     seek(f, filesize(f));
     write(f, user);
     indexMenu:=0;
     close(f);
end;

procedure showAdminPanel(filepath: string);
begin
bulba:=picture.create('J:\Основы_программирования\Л8-10\Application\zagruzka\bukva_ve_rasskaz.jpg');
     assign(f, filepath);
     menu[1]:='Добавить пользователя';
     menu[2]:='Архив';
     menu[3]:='События';
     menu[4]:='Выйти из аккаунта';
     countMenu:=4;
     indexMenu:=0;
     indexLogins:=0;
     container:=false;
     crtwindowsize(88, 30);
     clearwindow(clWhite);
     hideCursor;
     randomize;
     while true do
     begin
           Window(1, 1, 87, 29);
           textbackground(15);
           clrscr;
           width:=24;
           height:=countmenu;
           setbrushcolor(clYellow);
           Window(2, 2, 2 + width, 2 + height -1);
           rectangle(0, 15, 202, 83);
           textbackground(14);
           for i:=1 to countMenu do
           begin
                if container = false then
                begin
                  if i = countMenu then if indexMenu = i then write('-> ', menu[i]) else write('   ', menu[i])
                  else if indexMenu = i then writeln('-> ', menu[i]) else writeln('   ', menu[i]);
                end else if i = countMenu then write('   ', menu[i]) else writeln('   ', menu[i])
           end;
           setpenwidth(35);
           bulba.draw(-30,150);
           Window(2+width+2, 2, 87, 29);
           textbackground(7);
           setbrushcolor(rgb(170,170,170));
           setpenwidth(1);
           rectangle(212, 0, windowwidth, windowheight);
           rectangle(212, 31, windowwidth, windowheight);
           rectangle(262, 31, windowwidth, windowheight);
           rectangle(298, 31, windowwidth, windowheight);
           rectangle(440, 31, windowwidth, windowheight);
           rectangle(580, 31, windowwidth, windowheight);
           gotoxy(20, 1);
           writeln('Список пользователей');
           gotoxy(4, 2);
           write('№');
           gotoxy(8, 2);
           write('ID');
           gotoxy(12, 2);
           write('Логин');
           gotoxy(30, 2);
           write('Пароль');
           gotoxy(47, 2);
           write('Должность');
           
           Reset(f);
           fileuserssize:=0;
           while not eof(f) do
           begin
                read(f, user);
                if user.enabled then
                begin
                     inc(fileuserssize);
                     logins[fileuserssize]:=user.login;
                     gotoxy(1, fileuserssize+2);
                     if (indexLogins = fileuserssize) and (container) then write('-> ') else write('   ');
                     gotoxy(4, fileuserssize+2);
                     write(fileuserssize);
                     gotoxy(8, fileuserssize+2);
                     write(user.id);
                     gotoxy(12, fileuserssize+2);
                     write(user.login);
                     gotoxy(30, fileuserssize+2);
                     write(user.pass);
                     gotoxy(47, fileuserssize+2);
                     case user.access of
                          1: write('Администратор');
                          2: write('Кассир');
                          3: write('Бухгалтер');
                          4: write('Кадровик');
                          5: write('Склад');
                     end;
                end;
           end;
           close(f);
           key:=readkey;
           if key=#0 then key:=readkey;
           if key=#75 then container:=not container;
           if key=#77 then container:=not container;
           if container=false then
           begin
                if key=#72 then if indexMenu-1 < 1 then indexMenu:=countMenu else dec(indexMenu);
                if key=#80 then if indexMenu+1 > countMenu then indexMenu:=1 else inc(indexMenu);
                if (key=#13) and (indexMenu<>0) then
                   case indexMenu of
                        1: begin addUser; end;
                        2:
                        begin
                             Window(1, 1, 199, 49);
                             Clrscr;
                             showArchive(filepath);
                        end;
                        4: break;
                   end;
           end else
           begin
                if key=#72 then if indexLogins-1 < 1 then indexLogins:=fileuserssize else dec(indexLogins);
                if key=#80 then if indexLogins+1 > fileuserssize then indexLogins:=1 else inc(indexLogins);
                if (key=#83) and (indexLogins<>0) then deleteUser;
                if (key=#82) and (indexLogins<>0) then changeUser;
           end;
           
     end;
end;
begin
end.

uses GraphABC;
var
  w, w2: integer;
  boollogin, boolpass: boolean;
  login, password: string;
 
procedure Vvod(Key: integer);
begin
  case key of
    48..57, 65..90, 97..122: // Условие нажатия на символьные клавиши
      begin
        SetBrushColor(clWhite);
        if boollogin then 
          begin 
            login := login + chr(key);TextOut(w2 - 80, 142, login);
          end;
        if boolpass then
          begin 
          password := password + chr(key);TextOut(w2 - 80, 255, password);
          end;
      end;
  end;
end;
procedure ClickPlase(x, y, m: integer);
begin
  if (x > w2 - 90) and (x < w2 + 250) and (y > 130) and (y < 180) then // Клик по полю Логин
  begin
    boollogin := true;
    boolpass := false;
    OnKeyDown := Vvod;
  end;
  if (x > w2 - 90) and (x < w2 + 250) and (y > 250) and (y < 300) then // Клик по полю Пароль
  begin
    boollogin := false;
    boolpass := true;
    OnKeyDown := Vvod;
  end;
  if (x > w2 - 90) and (x < w2 + 70) and (y > 350) and (y < 400) then // Клик по кнопке Вход
  begin
    // Вход
    ClearWindow;
    WriteLn('Логин: ', login, ' Пароль: ', password, 'Вот так вот ');
    x := 0;
  end;
  if (x > w2 + 90) and (x < w2 + 250) and (y > 350) and (y < 400) then // Клик по кнопке Выход
  begin
    // Выход
  end;
  if boollogin then
  begin
    SetBrushColor(clWhite);
    Rectangle(w2 - 90, 130, w2 + 250, 180);
    TextOut(w2 - 80, 142, login);
  end
  else
  begin
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 130, w2 + 250, 180);
    TextOut(w2 - 80, 142, login);
  end;
  if boolpass then
  begin
    SetBrushColor(clWhite);
    Rectangle(w2 - 90, 250, w2 + 250, 300);
    TextOut(w2 - 80, 255, password);
  end
  else
  begin
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 250, w2 + 250, 300);
    TextOut(w2 - 80, 255, password);
  end;
end;
procedure Authorizing;
  procedure Otrisovka;
  begin
    w := WindowWidth; // w = ширина окна
    w2 := round(w / 2);
    ClearWindow(RGB(210, 173, 0));
    SetFontSize(18); 
    SetBrushColor(RGB(210, 173, 0));
    TextOut(round(w2 - TextWidth('Авторизация') / 2), 50, 'Авторизация');
    TextOut(w2 - 100 - TextWidth('Логин:'), 142, 'Логин:');
    TextOut(w2 - 100 - TextWidth('Пароль:'), 255, 'Пароль:');
    SetPenWidth(2);
    SetBrushColor(RGB(213, 187, 63));
    Rectangle(w2 - 90, 130, w2 + 250, 180); //  Поле ввода логина
    Rectangle(w2 - 90, 250, w2 + 250, 300); //  Поле ввода пароля
    Rectangle(w2 - 90, 350, w2 + 70, 400); // Кнопка Вход
    Rectangle(w2 + 90, 350, w2 + 250, 400); // Кнопка Выход
    Textout(w2 - 10 - round(TextWidth('Вход') / 2), 360, 'Вход');
    Textout(w2 + 170 - round(TextWidth('Выход') / 2), 360, 'Выход');
  end;
begin
  Otrisovka;
  OnMouseDown := ClickPlase;
end;
begin
  SetWindowSize(800, 600);
  Authorizing;
  OnResize := Authorizing;
end.