Ошибка при компиляции транслятора!!!

program Kurs_Project;
uses crt;
const digits : set of '0'..'9' = ['0'..'9'];
      HexDigits: set of '0'..'z' = ['0'..'9', 'A'..'F', 'a'..'f'];
      chars:set of '0'..'z'=['A'..'Z','a'..'z'];
      comand_table:array[1..8] of string=
      ('MOV','MUl','ADC','JE','mov','mul','adc','je');
       reg_code:array[0..7] of byte=(0,3,1,2,4,5,6,7);
       reg_table:array[0..31] of string=
       ('AX','BX','CX','DX','SP','BP','SI','DI','AL','BL','CL','DL','AH','CH','DH','BH',
       'ax','bx','cx','dx','sp','bp','si','di','al','bl','cl','dl','ah','ch','dh','bh');
 
      adr_table:array[0..7] of string = ('SI','DI','BP','BX','si','di','bp','bx');
      adr_type:array[1..4] of byte=(4,5,6,7);
type re = ^rec;
      rec = record
      ctroka:string;
      bit:boolean;
      inte:integer;
      next:re;
     end;
 
 
var f,list:text;
    rezult:file;
    namefile,namedata:string[8];
    string_for_list,es:string;
    ErrorCode,Second_Pass,Find_Error:boolean;
    Count,Total_Count,Command_Count:integer;
    Label_Array,Var_Array:rec;
    Time_var:rec;
 
 
procedure SecondPass;forward;
procedure ADC_Comand(s:string);forward;
procedure MUL_Comand(s:string);forward;
procedure JE_Comand(s:string);forward;
procedure MOV_Comand(s:string);forward;
function Command(s2:string):string;forward;
function Data(var s:string):boolean;forward;
function Reg_Mode(s:string):byte;forward;
function Select_Op(s:string):string;forward;
procedure Op_type(var s:string;var bit:byte);forward;
procedure Hex_To_Int(s:string;var bit:integer);forward;
procedure Int_To_Hex(k:byte;var s:string);forward;
procedure First;forward;
function Select_Label(s:string;var re:string):boolean;forward;
procedure Form_List(v1,v2,v3,v4,n:byte);forward;
procedure Error_Mode(bit:byte);forward;
function op_type1(s:string):boolean;forward;
{**************}
procedure First;
var s,s1,s3:string;
    b,b1,created:boolean;
    i,count_past:integer;
begin
created:=false;
readln(f,s);
count:=count+5;
repeat
 b:=false;
 readln(f,s);
 b1:=Select_Label(s,s1);
        Time_var.ctroka:=s1;
        Find_Error:=Label_Array.Find(Time_var);
        if Find_Error then begin Error_mode(1);writeln(list,'\Label-''',s1,'''');end;
 while ((s[1]=' ')and(length(s)<>0)) do delete(s,1,1);
 delete(s,1,length(s1));
 if ((s[1]=' ') or (s[1]=':')) then delete(s,1,1);
 s3:=s;
 while ((s[1]<>' ')and(length(s)<>0)) do delete(s,1,1);
 delete(s,1,1);
 if s='db' then b:=true;
 if b1 then
   begin
    Time_Var.ctroka:=s1;
    Time_Var.inte:=count;
    Time_Var.bit:=true;
    if created then Label_Array.Add(Time_Var)
    else begin Label_Array.Create(Time_Var);created:=true;end;
   end;
 Command(s3);
until  b;
Command_Count:=count;
count:=count+5;
writeln('info about labels');
Label_Array.info;
b:=false;
created:=false;
count_past:=count;
repeat
  readln(f,s);
  s3:=s;
  b1:=data(s);
        Time_var.ctroka:=s;
        Find_Error:=Var_Array.Find(Time_var);
        if Find_Error then begin Error_mode(2);writeln(list,'\var-''',s,'''');end;
  if b1 then Time_Var.bit:=true
  else Time_Var.bit:=false;
     Time_Var.Ctroka:=s;
     Time_Var.inte:=count_past;
     if created then Var_Array.Add(Time_Var)
     else begin Var_Array.Create(Time_Var);created:=True;end;
  count_past:=count;
  while ((s3[1]=' ')and(length(s3)>0)) do delete(s3,1,1);
  while ((s3[1]<>' ')and (length(s3)<>0)) do delete(s3,1,1);
  delete(s3,1,1);
  if s3='ends' then b:=true;
  if eof(F) then b:=true;
until b;
Var_Array.Remove_First(Time_Var);
writeln('Info about variables');{}
Var_Array.Info;
count:=count+3;
Total_Count:=count;
end;
{**************}
procedure SecondPass;
var namef1,namef,seg,db,enf,ends:string;
    b:boolean;
    i,k:byte;
    www:integer;
begin
 readln(f,namef);
 seg:=namef;delete(seg,1,9);
 if seg<>'segment' then Error_MOde(3);
 writeln(list,namef);
 for i:=1 to length(namef) do if namef[i]=' ' then break;
 delete(namef,i,256);
 namefile:=namef;
 k:=72;
 blockwrite(rezult,k,1);
 for i:=1 to 8 do
  begin
   k:=ord(namefile[i]);
   blockwrite(rezult,k,1);
  end;
 k:=Total_Count;
 blockwrite(rezult,k,1);
 k:=Total_Count div 256;
 blockwrite(rezult,k,1);
 k:=ord('T');blockwrite(rezult,k,1);
 k:=16;blockwrite(rezult,k,1);
 k:=0;blockwrite(rezult,k,1);
 k:=Command_Count-16;blockwrite(rezult,k,1);
 k:=(Command_Count-16) div 256;blockwrite(rezult,k,1);
 namef1:=Command(namef);
 writeln(list,namef1);
 k:=ord('T');blockwrite(rezult,k,1);
 k:=Command_count+5;blockwrite(rezult,k,1);
 k:=(Command_Count+5) div 256;blockwrite(rezult,k,1);
 k:=(Total_Count-Command_count-8);blockwrite(rezult,k,1);
 k:=(Total_Count-Command_count-8) div 256;blockwrite(rezult,k,1);
 count:=count+5;
 Data(namef);
 seg:=namef;delete(seg,9,256);
 if seg<>namefile then Error_Mode(4);
 ends:=namef;
 delete(ends,1,9);
 if ends<>'ends' then Error_mode(15);
 writeln(list,namef);
 readln(f,enf);
 if enf<>'end' then Error_Mode(14);
 writeln(list,enf);
 k:=ord('E');blockwrite(rezult,k,1);
 k:=11;blockwrite(rezult,k,1);
 k:=0;blockwrite(rezult,k,1);
end;
 
{**************}
function Command(s2:string):string;
var s,s1,sl,es:string;
    modu,b1:boolean;
    l,j:integer;
begin
  modu:=false;
  s1:=s2;
 repeat
  b1:=true;
 if Second_Pass then readln(f,s1);sl:=s1;
 while ((s1[1]=' ') and (length(s1)<>0)) do delete(s1,1,1);
 for l:=1 to length(s1) do if s1[l]=':' then break;
 if s1[l]=':' then  delete(s1,1,l);
 while ((s1[1]=' ') and (length(s1)<>0)) do delete(s1,1,1);
  s:=s1;
  delete(s,4,256);
  if s[3]=' ' then delete(s,3,1);
  es:=s;
  if ((s=comand_table[1]) or (s=comand_table[5])) then begin MOV_Comand(s1);b1:=false;end;
  if ((s=comand_table[2]) or (s=comand_table[6])) then begin MUL_Comand(s1);b1:=false;end;
  if ((s=comand_table[3]) or (s=comand_table[7])) then begin ADC_Comand(s1);b1:=false;end;
  if ((s=comand_table[4]) or (s=comand_table[8])) then begin JE_Comand(s1);b1:=false;end;
  if b1 then
    begin
      s:=s1;
      while ((s[1]<>' ') and (length(s)<>0)) do delete(s,1,1);
      while ((s[1]=' ') and (length(s)<>0)) do delete(s,1,1);
      delete(s,3,256);
      if ((s<>'db') and (s<>'DB')) then
       begin
        ErrorCode:=True;
        writeln(list,'ERROR:CRITICAL STRIKE');
       end;
      modu:=true;
    end;
  if Second_Pass=false then modu:=true;
  string_for_list:=string_for_list+sl;
  if ((second_pass) and (modu=false)) then writeln(list,string_for_list);
  b1:=true;
  for j:=1 to 8 do if es=comand_table[j] then b1:=false;
  if ((b1) and (modu=false)) then Error_mode(8);
  if eof(f) then modu:=true;
 until modu;
 if second_pass then Command:=s1;
end;
{**************}
function Data(var s:string):boolean;
var s2,s1,s3,sl,es:string;
    modu,b1:boolean;
    l,i:integer;
    z,z1:byte;
    bit:boolean;
begin
b1:=false;
s1:=s;
repeat
 if Second_Pass then begin readln(f,s1);sl:=s1;end;
 while ((s1[1]=' ')and(length(s1)>0)) do delete(s1,1,1);
 for i:=1 to length(s1) do if s1[i]=' ' then break;
 s:=s1;
 delete(s,i,256);
 delete(s1,1,i);
 s3:=s1;
 for i:=1 to length(s3) do if s3[i]=' ' then break;
 delete(s3,1,i);
 if s1<>'ends' then delete(s1,3,256);
 if s1='db' then bit:=true;;
 if s1='dw' then bit:=false;
 if ((s1='ends')or(eof(f))) then b1:=true;
 if Second_Pass=False then b1:=true;
 if Second_Pass then
  begin
   s3:=select_op(s3);
   Op_type(s3,z);
   if ((z=4)and(s1='db')) then
    begin
     val(s3,l,i);
     z1:=l;
     blockwrite(rezult,z1,1);
    end;
   if ((z=4)and(s1='dw')) then
    begin
     val(s3,l,i);
     z1:=l;blockwrite(rezult,z1,1);
     z1:=l div 256;blockwrite(rezult,z1,1);
    end;
   if ((z=3)and(s1='db')) then
    begin
     Hex_To_Int(s3,l);
     z1:=l;
     blockwrite(rezult,z1,1);
    end;
   if ((z=3)and(s1='dw')) then
    begin
     Hex_To_Int(s3,l);
     z1:=l;blockwrite(rezult,z1,1);
     z1:=l div 256;blockwrite(rezult,z1,1);
    end;
  end;
  if ((s1<>'db')and(s1<>'dw')and(b1=false)) then Error_Mode(5);
  if ((second_pass)and(b1=false)) then
   begin
    Int_To_Hex(count,s2);
    string_for_list:=' '+s2+':'+sl;
    writeln(list,string_for_list);
   end;
  if s1='db' then begin inc(count);Time_Var.bit:=true;end;
  if s1='dw' then begin count:=count+2;Time_Var.bit:=false;end;
  if eof(f) then b1:=true;
until b1;
 data:=bit;
 if second_pass then s:=sl;
end;
{**************}
procedure ADC_Comand(s:string);
var s12,s13,s14:string;
    i,time1,code:integer;
    bo1,bo2,len_op:byte;
    rez:array[1..4] of byte;
    cw:boolean;
begin
cw:=false;
for i:=1 to 4 do rez[i]:=0;
bo1:=0;bo2:=0;
delete(s,1,4);
s12:=select_op(s);
delete(s,1,length(s12)+1);
s13:=select_op(s);
if s13='' then Error_Mode(7);
Op_type(s12,bo1);
Op_type(s13,bo2);
if (((bo1=1) and (bo2=5))or((bo1=5)and(bo2=1))) then
 begin
  if bo1=5 then begin s14:=s12;s12:=s13;s13:=s14;end;
  len_op:=2;
  rez[1]:=19;
  rez[2]:=reg_mode(s12)*8;
  for i:=0 to 7 do if s13=adr_table[i] then break;
  if second_pass then if s13<>adr_table[i] then Error_mode(8);
  i:=i mod 4+1;
  rez[2]:=rez[2]+adr_type[i];
  if (i=3) then begin len_op:=4;rez[2]:=rez[2]+128;end;
  rez[3]:=0;
  rez[4]:=0;
 if ((Second_Pass) and (ErrorCode=false)) then for i:=1 to len_op do blockwrite(rezult,rez[i],1);
 cw:=true;
 end;
if ((bo1=1) and (bo2=6)) then
 begin
  Time_Var.ctroka:=s13;
  Var_Array.Find(Time_Var);
  str(Time_Var.inte,s13);
   bo2:=4;
 end;
if ((bo1=1) and (bo2=1)) then
   begin
      if second_pass then if op_type1(s12)<>op_type1(s13) then Error_Mode(11);
     len_op:=2;
     rez[1]:=18;
     for i:=0 to 31 do if reg_table[i]=s12 then break;
     i:=i mod 16;
     if i<8 then inc(rez[1]);
     rez[2]:=192+reg_mode(s12)*8+reg_mode(s13);
    { inc(count);inc(count);}
     if ((ErrorCode=False)and(Second_Pass)) then begin blockwrite(rezult,rez[1],1);blockwrite(rezult,rez[2],1);end;
     cw:=true;
   end;
if ((bo1=1) and ((bo2=3) or (bo2=4))) then
  begin
     if second_pass then
       if ((op_type1(s12)) and ((length(s13)>3) or ({}(length(s13)=3){}and{}(s13[3]<>'h'){} ))) then Error_Mode(11);
     if bo2=3 then Hex_To_Int(s13,time1);
     if bo2=4 then val(s13,time1,code);
     len_op:=3;
     rez[1]:=128;
     for i:=0 to 31 do if reg_table[i]=s12 then break;
     i:=i mod 16;
     if i<8 then begin inc(rez[1]);len_op:=4;end;
     rez[2]:=208+reg_mode(s12);
     rez[3]:=time1;
     if len_op=4 then rez[4]:=time1 div 256;
     if ((ErrorCode=False)and(Second_Pass)) then
      begin
       for i:=1 to 3 do blockwrite(rezult,rez[i],1);
       if len_op=4 then blockwrite(rezult,rez[4],1);
      end;
    cw:=true;
  end;
if (((bo1=1) and (bo2=2)) or ((bo2=1)and (bo1=2))) then
 begin
  len_op:=4;
   if second_pass then if op_type1(s12)<>op_type1(s13) then Error_Mode(11);
  if bo1=2 then begin s14:=s12;s12:=s13;s13:=s14;end;
  if bo1=1 then rez[1]:=18;
  if bo1=2 then rez[1]:=16;
    for i:=0 to 31 do if reg_table[i]=s12 then break;
    i:=i mod 16;
    if i<8 then inc(rez[1]);
  if bo1=1 then rez[2]:=reg_mode(s12)*8+6;
  if bo1=2 then rez[2]:=48+reg_mode(s12);
  Time_Var.ctroka:=s13;
  find_error:=Var_Array.Find(Time_Var);
  if second_pass then if find_error=false then Error_mode(10);
  rez[3]:=Time_Var.inte;
  rez[4]:=Time_Var.inte div 256;
  if Second_Pass then for i:=1 to 4 do blockwrite(rezult,rez[i],1);
  cw:=true;
 end;
if second_pass then Form_List(rez[1],rez[2],rez[3],rez[4],len_op);
count:=count+len_op;
if second_pass then if cw=false then Error_Mode(8);
end;
{**************}
procedure MUL_Comand(s:string);
var bit2,bit1:integer;
    i:integer;
begin
delete(s,1,4);
delete(s,3,256);
bit2:=224;
bit2:=bit2+reg_mode(s);
bit1:=246;
for i:=0 to 31 do if reg_table[i]=s then break;
if second_pass then if reg_table[i]<>s then error_mode(10);
i:=i mod 16;
if i<8 then inc(bit1);
{१г«мв в 2 Ў ©в  бв аиЁ© bit1, ¬« ¤иЁ© ЁиҐ2}
if ((ErrorCode=False) and (Second_Pass)) then
 begin
  blockwrite(rezult,bit1,1);
  blockwrite(rezult,bit2,1);
 end;
if second_pass then Form_List(bit1,bit2,bit1,bit2,2);
inc(Count);inc(count);
end;
{**************}
procedure JE_Comand(s:string);
var bit1,bit2,bit3:byte;
begin
 while s[1]=' ' do delete(s,1,1);
 while s[1]<>' ' do delete(s,1,1);
 delete(s,1,1);
 s:=select_op(s);
 bit1:=116;bit3:=bit1;
 if second_pass then blockwrite(rezult,bit1,1);
 time_var.ctroka:=s;
 Find_Error:=Label_Array.Find(Time_Var);
 if second_pass then if find_error=false then Error_mode(9);
 bit1:=Time_Var.inte-count-3;
 bit2:=(Time_Var.inte-count+3) div 256;
 if second_pass then blockwrite(rezult,bit1,1);
 if second_pass then blockwrite(rezult,bit2,1);
 if second_pass then Form_List(bit3,bit1,bit2,bit3,3);
 count:=count+3;
end;
{**************}
procedure MOV_Comand(s:string);
var s12,s13,s14:string;
    i,time1,code:integer;
    bo1,bo2,len_op:byte;
    rez:array[1..4] of byte;
    cw:boolean;
begin
cw:=false;
for i:=1 to 4 do rez[i]:=0;
bo1:=0;bo2:=0;
delete(s,1,4);
s12:=select_op(s);
delete(s,1,length(s12)+1);
s13:=select_op(s);
if second_pass then if s13='' then Error_Mode(7);
Op_type(s12,bo1);
Op_type(s13,bo2);
if (((bo1=1) and (bo2=5))or((bo1=5)and(bo2=1))) then
 begin
  if bo1=5 then begin s14:=s12;s12:=s13;s13:=s14;end;
  len_op:=2;
  rez[1]:=139;
  rez[2]:=reg_mode(s12)*8;
  for i:=0 to 7 do if s13=adr_table[i] then break;
  if second_pass then if s13<>adr_table[i] then Error_mode(8);
  i:=i mod 4+1;
  rez[2]:=rez[2]+adr_type[i];
  if (i=3) then begin len_op:=4;rez[2]:=rez[2]+128;end;
  rez[3]:=0;
  rez[4]:=0;
 if ((Second_Pass) and (ErrorCode=false)) then for i:=1 to len_op do blockwrite(rezult,rez[i],1);
 cw:=true;
 end;
if ((bo1=1) and (bo2=6)) then
 begin
  Time_Var.ctroka:=s13;
  Var_Array.Find(Time_Var);
  str(Time_Var.inte,s13);
   bo2:=4;
 end;
if ((bo1=1) and (bo2=1)) then
   begin
     if second_pass then if op_type1(s12)<>op_type1(s13) then Error_Mode(11);
     len_op:=2;
     rez[1]:=138;
     for i:=0 to 31 do if reg_table[i]=s12 then break;
     i:=i mod 16;
     if i<8 then inc(rez[1]);
     rez[2]:=192+reg_mode(s12)*8+reg_mode(s13);
     if ((ErrorCode=False)and(Second_Pass)) then begin blockwrite(rezult,rez[1],1);blockwrite(rezult,rez[2],1);end;
     cw:=true;
   end;
if ((bo1=1) and ((bo2=3) or (bo2=4))) then
  begin
     if second_pass then
       if ((op_type1(s12)) and ((length(s13)>3) or ({}(length(s13)=3){}and{}(s13[3]<>'h'){} ))) then Error_Mode(11);
     if bo2=3 then Hex_To_Int(s13,time1);
     if bo2=4 then val(s13,time1,code);
     len_op:=2;
     rez[1]:=176+reg_mode(s12);
     for i:=0 to 31 do if reg_table[i]=s12 then break;
     i:=i mod 16;
     if i<8 then begin rez[1]:=rez[1]+8;len_op:=3;end;
     rez[2]:=time1;
     if len_op=3 then rez[3]:=time1 div 256;
     if ((ErrorCode=False)and(Second_Pass)) then
      begin
       for i:=1 to 2 do blockwrite(rezult,rez[i],1);
       if len_op=3 then blockwrite(rezult,rez[4],1);
      end;
      cw:=true;
  end;
if (((bo1=1) and (bo2=2)) or ((bo2=1)and (bo1=2))) then
 begin
  if second_pass then if op_type1(s12)<>op_type1(s13) then Error_Mode(11);
  len_op:=4;
  if bo1=2 then begin s14:=s12;s12:=s13;s13:=s14;end;
  if bo1=1 then rez[1]:=138;
  if bo1=2 then rez[1]:=136;
    for i:=0 to 31 do if reg_table[i]=s12 then break;
    i:=i mod 16;
    if i<8 then inc(rez[1]);
{} {‡¤Ґбм 6 ®§¬ з Ґв зв® Їап¬ п  ¤аҐб жЁп!!!}
  if bo1=1 then rez[2]:=reg_mode(s12)*8+6;
  if bo1=2 then rez[2]:=reg_mode(s12)*8+6;
  Time_Var.ctroka:=s13;
  find_error:=Var_Array.Find(Time_Var);
  if second_pass then if find_error=false then Error_mode(10);
  rez[3]:=Time_Var.inte;
  rez[4]:=Time_Var.inte div 256;
  if Second_Pass then for i:=1 to 4 do blockwrite(rezult,rez[i],1);
  cw:=true;
 end;
if second_pass then Form_List(rez[1],rez[2],rez[3],rez[4],len_op);
count:=count+len_op;
if second_pass then if cw=false then error_mode(8);
end;
{**************}
function Reg_Mode(s:string):byte;
var i,k:integer;
begin
 for i:=0 to 31 do if reg_table[i]=s then break;
 i:=i mod 8;
 k:=reg_code[i];reg_mode:=k;
 i:=0;
end;
{**************}
function Select_Op(s:string):string;
var s11:string;
    i:integer;
begin
  s11:=s;
  for i:=1 to length(s) do if ((s[i]=';') or (s[i]=','))then break;
  delete(s11,i,256);
  if second_pass then if ((s[i+1]=',') and ((i+1)<=length(s))) then Error_Mode(6);
  Select_Op:=s11;
end;
{**************}
procedure Op_type(var s:string;var bit:byte);
var i:integer;
    b1:byte;
    s1:string;
begin
bit:=0;b1:=0;
if s[1] in chars then bit:=2;
for i:=1 to length(s)-1 do if s[i] in HexDigits then inc(b1);
if ((s[length(s)]='h') and (b1=length(s)-1) and (length(s)<>1)) then bit:=3;
b1:=0;
for i:=1 to length(s) do if s[i] in Digits then inc(b1);
if b1=length(s) then bit:=4;
for i:=1 to 32 do if (s=reg_table[i]) then bit:=1;
if ((s[1]='[') and (s[length(s)]=']')) then
  begin
  delete(s,1,1);
  delete(s,length(s),1);
  bit:=5;
  end;
s1:=s;
delete(s1,7,256);
if ((s1='OFFSET') or (s1='offset')) then
 begin
  delete(s,1,7);
  bit:=6;
  if second_pass then
    begin
    time_var.ctroka:=s;
    find_error:=Var_array.find(time_var);
    if find_error=false then Error_mode(12);
    end;
 end;
if bit=0 then Error_Mode(10);
end;
{**************}
procedure Hex_To_Int(s:string;var bit:integer);
var i,k,k1:integer;
begin
bit:=0;k:=1;bit:=0;
for i:=length(s)-1 downto 1 do
  begin
   k1:=ord(s[i]);
   if ((k1>=65) and (k1<=70)) then bit:=bit+(k1-55)*k;
   if ((k1>=97) and (k1<=102)) then bit:=bit+(k1-87)*k;
   if ((k1>47) and (k1<58)) then bit:=bit+(k1-48)*k;
   k:=k*16;
  end;
end;
{**************}
function Select_Label(s:string;var re:string):boolean;
var i:integer;
begin
  while s[1]=' ' do delete(s,1,1);
   re:=s;
  for i:=1 to length(s) do if s[i]=':' then break;
  if s[i]=':' then delete(re,i,256);
  if s[i]=':' then Select_Label:=true
  else begin Select_Label:=false;re:='';end;
end;
{**************}
procedure Form_List(v1,v2,v3,v4,n:byte);
var se,ss:string;
    code,i:integer;
    sv:array[1..4] of string;
begin
 string_for_list:='';
 Int_To_Hex(count,ss);
 str(n,se);
 Int_To_Hex(v1,sv[1]);Int_To_Hex(v2,sv[2]);
 Int_To_Hex(v3,sv[3]);Int_To_Hex(v4,sv[4]);
 string_for_list:=ss+':';
 for i:=1 to n do string_for_list:=string_for_list+' '+sv[i];
end;
{**************}
procedure Int_To_Hex(k:byte;var s:string);
var i,rest:byte;
begin
 s:='';
 i:=k mod 16;
 rest:=k div 16;
 if rest>9 then s:=chr(rest+55)
 else s:=chr(48+rest);
 if i>9 then s:=s+chr(i+55);
 if i<=9 then s:=s+chr(48+i);
 i:=0;
end;
{**************}
procedure Error_Mode(bit:byte);
begin
ErrorCode:=true;
case bit of
    1: Write(list,'ЊҐвЄ  б Ї®¤®Ў¬л¬ Ё¬Ґ¬Ґ¬ 㦥 бгйҐбвўгҐв.');
    2: write(list,'ЏҐаҐ¬Ґ¬¬ п б Ї®¤®Ў¬л¬ Ё¬Ґ¬Ґ¬ 㦥 бгйҐбвўгҐв.');
    3: writeln(list,'‘ҐЈ¬Ґ¬в ¬Ґ ®ЇаҐ¤Ґ«Ґ¬.');
    4: writeln(list,'‚ Є®¬жҐ ¤агЈ®Ґ Ё¬п ᥣ¬Ґ¬в .');
    5: writeln(list,'‚в®а®Ґ б«®ў® ¤®«¦¬® Ўлвм db Ё«Ё dw .');
    6: writeln(list,'‹Ёи¬пп § Їпв п.');
    7: writeln(list,'ЋвбгвбвўгҐв § Їпв п.');
    8: writeln(list,'ЋиЁЎЄ  ў Є®¬ ¬¤Ґ.');
    9: writeln(list,'ЌҐЁ§ўҐб¬ п ¬ҐвЄ .');
    10:writeln(list,'ЌҐЁ§ўҐб¬ п ЇҐаҐ¬Ґ¬¬ п.');
    11:writeln(list,'ђ §¬лҐ вЁЇл ®ЇҐа ¬¤®ў.');
    12:writeln(list,'Џ®б«Ґ б«®ў  offset ¤®«¦¬® Ё¤вЁ Ё¬п ЇҐаҐ¬Ґ¬¬®©.');
    14:writeln(list,'End Required');
    15:writeln(list,'Ends Required');
 
  end;
end;
{*****************}
function op_type1(s:string):boolean;
var i:integer;
begin
for i:=1 to 32 do if s=reg_table[i] then break;
if i<8 then op_type1:=false;
if i>=8 then op_type1:=true;
Time_Var.ctroka:=s;
Find_Error:=Var_Array.Find(Time_Var);
{if second_pass then if find_error=false then Error_mode(10);}
if find_error=true then op_type1:=Time_var.bit;
end;
 
begin
clrscr;
Count:=11;
Second_Pass:=false;
ErrorCode:=false;
assign(f,'data.txt');
reset(f);
assign(rezult,'rez.txt');
rewrite(rezult,1);
assign(list,'list.txt');
rewrite(list);
first;
close(f);
Second_Pass:=true;
assign(f,'data.txt');
reset(f);
count:=16;
SecondPass;
if errorCode then erase(rezult);
close(f);
close(rezult);
close(list);
Var_Array.Free;
Label_Array.Free;
End.