программа1

uses crt;
var i: byte;
procedure z1;
var stroka,str : string;
  n,p,p1 : integer;
begin
writeln('íàïèøèòå ëþáóþ ôðàçó ãäå ïðèñóòñòâóþò ñêîáêè');
readln(stroka);
p:= pos('(',stroka);
p1:=pos(')',stroka);
n:=p1-p;
str:=copy(stroka,p+1,n-1);
writeln(str);
end;
procedure z2;
 var  a : string;
 begin
 writeln('ââåäèòå ïàðîëü');
readln(a);
 if (a='9583') or (a='1747') then writeln('äîñòóï ê ôàéëàì  À,Â,Ñ') else
 if (a='3331') or (a='7922') then writeln('äîñòóï ê ôàéëàì  Â,Ñ')   else
 if (a='9455') or (a='8997') then writeln('äîñòóï ê ôàéëàì  Ñ') else
 writeln('error ïîâòîðèòå ïàðîëü èëè îáðàòèòåñü ê àäìèíèñòðàòîðó')
 end;
 begin
 writeln('1.- ïåðâàÿ ïðîãðàììà');
 writeln('2.- âòîðàÿ ïðîãðàììà');
 readln (i);
 if i=1 then z1
 else z2;
 end.

unit unit1;
interface
procedure z1;
procedure z2;
implementation
procedure z1;
var stroka,str : string;
  n,p,p1 : integer;
begin
writeln('напишите любую фразу где присутствует выражение в круглых скобкфх');
readln(stroka);
p:= pos('(',stroka);
p1:=pos(')',stroka);
n:=p1-p;
str:=copy(stroka,p+1,n-1);
writeln(str);
readln;
end;
procedure z2;
 var  a : string;
      k:byte;
      f:boolean;
 begin
 k:=0;
 f:=false;
 repeat
 writeln('введите пароль');
 readln(a);
 if (a='9583') or (a='1747') then
  begin
   f:=true;
   writeln('доступ к файлам  А,В,С')
  end
 else  if (a='3331') or (a='7922') then
  begin
   f:=true;
   writeln('доступ к файлам  В,С')
  end
else if (a='9455') or (a='8997') then
 begin
  f:=true;
  writeln('доступ к файлам  С')
 end
else k:=k+1;
if k<3 then writeln('error повторите пароль или обратитесь к администратору')
else writeln('Вы 3 раза неверно ввели пароль, доступ запрещен');
until (k=3)or f;
readln;
end;
end.

uses crt,unit1;
var i: byte;
begin
repeat
clrscr;
writeln('Выберите действие:');
writeln('1.- первая программа');
writeln('2.- вторая программа');
writeln('3.- выход');
repeat
readln (i);
until i in [1..3];
case i of
1:z1;
2:z2;
3:exit;
end;
until i=6;
end.