Написать программу которая использует меню и подпрограммы , реализуют по выбору пользователя следующие операции:

program provodimosti;
uses crt;
const x1=2; y1=2; x2=79; y2=24;
      inexistent=-1; gol=0; normal=1;
      menu : array[0..1,1..8] of string=(('�®¢®¥ ¢¥é¥áâ¢o', 'ˆáª«îç¨âì ¢¥é¥á⢮',
      '�*¨¡®«ì訩 ¨ **¨¬¥*ì訩 ¢¥á','?âਡãâë ¯à®¢®¤*¨ª®¢ ¢ ¯®à浪¥ 㡨¢**¨ï ¨å ¢¥á*',
      '‘ª®¯¨à®¢*âì ¨§®«ïâ®àë ¢ ®â¤¥«ì*ë© ä*©«',
      '?âॡãâë ¯à®¢®¤*¨ª®¢ ¢ *«ä*¢¨â*®¬ ¯®à浪¥','‘*¬®¥ ¤«¨**®¥ **§¢**¨¥ ¢¥é¥áâ¢*',
      '‘।*¨© ¢¥á'),('�஢®¤*¨ª','�®«ã¯à®¢®¤*¨ª','ˆ§®«ïâ®à','','','','',''));
type
        Substant_=record
                DenSub : string;
                GrSpec : real;
                Cond : (conductor,semiconductor,izolator);
        end;
 
var substant: Substant_;
    optiune : integer;
    f,g : text;
 
function StrEq(str1,str2:string) : boolean;
{‘à*¢*¨¢*¥â ¤¢¥ áâப¨, ¥á«¨ áâப¨ ®¤¨**ª®¢ë ¢®§¢à*é*¥â TRUE}
label sf;
var z,i,l1,l2: integer;
begin
     z:=0;
     l1:=length(str1);
     l2:=length(str2);
     if l1<>l2 then goto sf;
     for i:=1 to l1 do
         if str1[i]=str2[i] then z:=z+1;
     if z=l1 then StrEq:=True
     else StrEq:=False;
sf:  StrEq:=False;
end;
 
procedure AfisCentrat(s : string; line : byte);   {�¨áã¥â áâபã}
var l : byte;
begin
  l:=length(s);
  l:=(x2-x1+1-l) div 2;
  gotoxy(l+1,line);
  writeln(s);
  gotoxy(1,1);
end;
procedure Chenar(x1,y1,x2,y2 : byte; titlu : string); {? íâ® åà¥* §**¥â çâ®}
var i : byte;
begin
  textcolor(white);
  gotoxy(x1,y1);
  write(chr(201));
  for i:=x1+1 to x2-1 do write(chr(205));
  write(chr(187));
  for i:=y1+1 to y2-1 do
   begin
     gotoxy(x1,i);
     write(chr(186));
     gotoxy(x2,i);
     write(chr(186));
   end;
  gotoxy(x1,y2);
  write(chr(200));
  for i:=x1+1 to x2-1 do write(chr(205));
  write(chr(188));
  AfisCentrat(' '+titlu+' ',y1);
end;
 
procedure SchimbaTitlu(TitluNou : string);    {’¨âã«}
begin
  window(1,1,80,25);
  Chenar(x1,y1,x2,y2,TitluNou);
  window(x1+1,y1+1,x2-1,y2-1);
end;
 
procedure Init;        {‡*£®«®¢®ª ¯à®£à*¬¬ë ¯®å®¤ã}
var i,j : byte;
begin
  textbackground(black);
  textcolor(white);
  clrscr;
  SchimbaTitlu('�஢®¤¨¬®áâ¨');
  assign(f,'Substant.txt');
  assign(g,'Izolator.txt');
end;
 
procedure CitesteIntreg(titlu : string; var num : integer); {‘ç¨âë¢*¥â
§**ç¥*¨¥ ⨯* integer}
begin
  clrscr;
  Chenar(8,10,72,14,titlu);
  gotoxy(38,12);
  readln(num);
  clrscr;
end;
 
procedure CitesteReal(titlu : string; var num : real); {‘ç¨âë¢*¥â §**ç¥*¨¥
⨯* real}
begin
  clrscr;
  Chenar(8,10,72,14,titlu);
  gotoxy(38,12);
  readln(num);
  clrscr;
end;
 
procedure Mesaj(titlu,mes : string);    {‚뢮¤¨â á®®¡é¥*¨¥ ¯®«ì§®¢*⥫î}
begin
  clrscr;
  Chenar(5,10,72,14,titlu);
  AfisCentrat(mes,12);
  readkey;
  clrscr;
end;
 
function SInt(n : integer) : string; {�¥à¥¢®¤¨â §**ç¥*¨¥ ⨯* iteger ¢
áâபã}
var sir : string;
begin
  str(n,sir); SInt:=sir;
end;
 
function SReal(n : real) : string;  {�¥à¥¢®¤¨â §**ç¥*¨¥ ⨯* real ¢ áâபã}
var sir : string;
begin
  str(n:0:2,sir); SReal:=sir;
end;
 
function Meniu(titlu : string; h,nr : byte) : byte;
{”ã*ªæ¨ï ᮧ¤*îé*ï ¬¥*î}
var i,op,nmenu : byte;
    tasta : char;
begin
  clrscr;
  if nr=0 then nmenu:=8 else nmenu:=3;
  textcolor(13);
  AfisCentrat(titlu,h);
  textcolor(LightRed);
  for i:=1 to nmenu do AfisCentrat(menu[nr,i],h+i);
  op:=1;
  textcolor(red);
  AfisCentrat(menu[nr,1],h+1);
  repeat
    tasta:=readkey;
    case tasta of
     #72: begin
            textcolor(LightRed);
            AfisCentrat(menu[nr,op],h+op);
            if op=1 then op:=nmenu else op:=op-1;
            textcolor(red);
            AfisCentrat(menu[nr,op],h+op);
          end;
     #80: begin
            textcolor(LightRed);
            AfisCentrat(menu[nr,op],h+op);
            if op=nmenu then op:=1 else op:=op+1;
            textcolor(red);
            AfisCentrat(menu[nr,op],h+op);
          end;
    end;
  until (tasta in [#13,#27,#32]);
  if tasta=#27 then Meniu:=0 else Meniu:=op;
end;
 
 
 
 
procedure WriteSubstant(var file_ : text; S : Substant_ );
{‡*¯¨áë¢*¥â ¢¥é¥á⢮ ¢ ä*©«}
var z : integer;
begin
     with S do
          write(file_,DenSub,'',GrSpec,' ');
          z:=ord(S.Cond);
          case z of
               0 : write(file_,'Conductor');
               1 : write(file_,'Semiconductor');
               2 : write(file_,'Izolator');
          end;
end;
 
procedure CitesteString(titlu : string; var str : string);
{‘ç¨âë¢*¥â áâபã}
begin
     clrscr;
     Chenar(8,10,72,14,titlu);
     gotoxy(38,12);
     readln(str);
     clrscr;
end;
 
function SearchString(var file_ : text; name : string) : integer;
{�à®æ¥¤ãà* ®¯à¥¤¥«ï¥â *®¬¥à áâப¨ ª®â®à*ï ᮤ¥à¦¨â áâபã name}
label 1,2;
var str:string;v: boolean;    z,i:integer;
begin
     i:=length(name);
     z:=0;
     while not eof(file_) do
          begin
             z:=z+1;
             readln(file_,str[i]);
             if StrEq(str,name)=True then goto 1;
             readln(file_);
          end;
     SearchString:=0; goto 2;
1: SearchString:=z;   2:
end;
 
procedure DeleteString(var file1 : text; z : integer);
{�à®æ¥¤ãà* ã¤*«ï¥â áâபã}
var i,v : integer;
begin
     i:=0;
     while not eof(file1) do
           begin
                i:=i+1;
                if i=z then
                readln(f)
                else
           end;
     rewrite(f);
     for v:=i downto 1 do
     ;
end;
 
function StareFisier(var fis : text) : shortint;
begin
     {$I-}
     reset(fis);
     if IOResult<>0 then StareFisier:=inexistent {-1}
     else
     begin
          if eof(fis) then StareFisier:=gol {0}
          else StareFisier:=normal; {1}
          close(fis);
     end;
end;
 
procedure RegistrationSubstant; {�¥£¨áâà*æ¨ï *®¢®£® ¢¥é¥áâ¢*}
var  S : Substant_; str : string; optiune: byte;
begin
   SchimbaTitlu('�…ƒˆ‘’�?–ˆŸ �Ž‚ŽƒŽ ‚…™…‘’‚?');
   if StareFisier(f)=inexistent then rewrite(f) else append(f);
   with S do
        begin
             CitesteString('�?ˆŒ…�Ž‚?�ˆ… ‚…™…‘’‚?',DenSub);
             CitesteReal('‚…‘ ‚…™…‘’‚?',GrSpec);
             optiune:=Meniu('’ˆ� ‚…™…‘’‚?',6,1);
             case optiune of
                   0 : Cond:=conductor;
                   1 : Cond:=semiconductor;
                   2 : Cond:=izolator;
             end;
        end;
   writeln(f);
   WriteSubstant(f,S);
   close(f);
   Mesaj('Ž�…�?–ˆŸ ‡?‚…�˜…�?','‚¥é¥á⢮ §*ॣ¥áâà¨à®¢**®');
 
end;
 
procedure ExcludeSubstant; {ˆáª«îç*¥â ¢¥é¥á⢮ ¨§ ä*©«*}
{�à®æ¥¤ãà* *¥ à*¡®â*¥â *¥ ¬®¦¥â **©â¨ ä*©«}
var str : string;   Nstr : integer;
begin
     SchimbaTitlu('“„?‹…�ˆ… ‚…™…‘’‚?');
     CitesteString('ˆ¬ï ¢¥é¥áâ¢*',str);
     reset(f);
     Nstr:=SearchString(f,str);
     if Nstr=0 then
     Mesaj('Ž˜ˆ�Š?','‘âப¨ *¥ áãé¥áâ¢ã¥â!')
     else
         begin
              DeleteString(f,Nstr);
              Mesaj('‚›�Ž‹�…��Ž','‘âப* ã¤*«¥**');
         end;
end;
 
procedure Max_Min_Substant;
begin
 
end;
 
procedure Atributes;
begin
end;
 
procedure CopyIzolators;
begin
end;
 
procedure AtributesAlf;
begin
end;
 
procedure MaxLigthName;
{�¥ à*¡®â*¥â ¢¨á*¥â ¯à®£à*¬¬*}
label 1;
var i,v,max : integer;     str1,str2 : string;
begin
     i:=0;
     reset(f);
     while not eof(f) do
           begin
                while str1[i]<>' ' do
                      begin
                           read(f,str1[i]);
                           i:=i+1;
                      end;
                readln(f);
1:              while str2[v]<>' ' do
                      begin
                           read(f,str2[i]);
                           v:=v+1;
                      end;
                readln(f);
                if i>v then
                   begin
                        max:=i;
                        goto 1;
                   end
                   else
                       begin
                            max:=v;
                            i:=0; v:=0;
                            str1:=str2;
                            goto 1;
                       end;
           end;
     SchimbaTitlu('‘?Œ?Ÿ „‹ˆ��?Ÿ ‘’�ŽŠ?');
     Mesaj('‘*¬*ï ¤«¨***ï áâப*:',str1);
end;
 
procedure AverageWeight;
begin
end;
{Žá*®¢*®© ª®¤}
begin
     Init;
     repeat
           SchimbaTitlu('��Ž‚Ž„ˆŒŽ‘’ˆ ‚…™…‘’‚');
           optiune:=Meniu('Œ … � ž',6,0);
           case optiune of
                0 : Halt;
                1 : RegistrationSubstant;{�¥£¨áâà*æ¨ï *®¢®£® ¢¥é¥áâ¢*}
                2 : ExcludeSubstant;       {ˆáª«îç¥*¨¥ ¢¢¥¤¥**®£® ¢¥é¥áâ¢*}
                3 : Max_Min_Substant;    {¬¨*¨¬*«ì*¨© ¨ ¬*ªá¨¬*«ì*ë© ¢¥á*}
                4 : Atributes;   {*âਡãâë ¯à®¢®¤*¨ª®¢ ¢ ¯®à浪¥ 㡨¢**¨ï0}
                5 : CopyIzolators;  {ª®¯¨à®¢**¨¥ ¨§®«ïâ®à®¢ ¢ ®â¤¥«ì*ë© ä*©«}
                6 : AtributesAlf; {*âਡãâë ¯à®¢®¤*¨ª®¢ ¢ *«ä*¢¨â*®¬ ¯®à浪¥ ¨å **§¢**¨©}
                7 : MaxLigthName;        {á*¬®¥ ¤«¨**®¥ **§¢**¨¥ ¢¥é¥áâ¢*}
                8 : AverageWeight      {á।*¨© ¢¥á ¯à®¢®¤*¨ª®¢}
           end;
     until false;
 
end.