Очередь (массив)

read(f,x);
if (x>=a)and(x<=b) then
 begin
  k:=k+1;
  b[k]:=x;
 end;

Program Lr4;
Uses
   crt;
Const
   n = 20; a = 8; b =12;
Type
   FR = file of integer;
   mass = array [1..n] of integer;
Var
   f : FR;
   less_a, ab, ost : mass;
   y,i,first_a, last_a : integer;
Begin
   ClrScr;
   assign (f, 'd:digit.dat');
   reset(f);
      for i:=0 to n do
      while not Eof(f) do read(f, y);
         if y < a then
             begin
               i:=i+1;
               less_a[i] := y;
            end
            { else
               if (y>=a) and (y<=b) then
                  begin
                     i:=i+1;
                     ab[i]:=y;
                  end
                  else
                     if (y>a) and (not((y>=a) and (y<=b))) then
                        begin
                           i:=i+1;
                           ost[i]:=y;
                        end};
    Writeln('less_a: ');
        for i:=1 to n do
        Write(less_a[i],'  ');
        Readln;
    
   close(f);
   end.

reset(f);
      for i:=0 to n do
      while not Eof(f) do read(f, y);

n1:=0;n2:=0;n3:=0
while not Eof(f) do
 begin
  read(f,y);
  if y<a then
   begin
    n1:=n1+1;
    m1[n1]:=y;
   end
  else if(y>b) then
   begin
    n3:=n3+1;
    m3[n3]:=y;
   end
  else
   begin
    n2:=n2+1;
    m2[n2]:=y;
   end;
 end;

Program Lr4;
Uses
   crt;
Const
   n = 20; a = 8; b =12;
Type
   FR = file of integer;
   mass = array [1..n] of integer;
Var
   f : FR;
   less_a, ab, ost : mass;
   y,i,k,l,m,first_a, last_a : integer;
Begin
   ClrScr;
   assign (f, 'd:\digit.dat');
   reset(f);
   k:=0;l:=0;m:=0;
      while not Eof(f) do read(f, y);
         if y < a then
             begin
               k:=k+1;
               less_a[k] := y;
            end
            { else
               if (y>=a) and (y<=b) then
                  begin
                     i:=i+1;
                     ab[i]:=y;
                  end
                  else
                     if (y>a) and (not((y>=a) and (y<=b))) then
                        begin
                           i:=i+1;
                           ost[i]:=y;
                        end};
    Writeln('less_a: ');
        for k:=1 to n do
        Write(less_a[к],'  ');
        Readln;
    
   close(f);
   end.

for k:=1 to n do
Write(less_a[к],' *');

for i:=1 to k do
write(a[i],' ');

while not Eof(f) do
 begin
  read(f,y);
  if y<a then
   begin
.......................
  end;

 while not Eof(f) do read(f, y);
         if y < a then
             begin

l:=0;m:=0;//это вроде символы эль и эм, а дальше
if (y>=a) and (y<=b) then
                  begin
                     i:=i+1;//это вроде уже и не l и не m
                     ab[i]:=y;

Program Lr4;
Uses  crt;
Const  n = 20; a = 8; b =12;
Type  FR = file of integer;
      mass = array [1..n] of integer;
Var f : FR;
    less_a, ab, ost : mass;
   y,i,k,l,m,first_a, last_a : integer;
Begin
ClrScr;
assign (f, 'd:\digit.dat');
{следующие 4 строки вам не нужно, это я файл создавал для тестирования}
rewrite(f);
for i:=1 to n do
write(f,i);
close(f);
reset(f);
k:=0;l:=0;m:=0;
while not Eof(f) do
 begin
  read(f, y);
  if y < a then
   begin
    k:=k+1;
    less_a[k] := y;
   end
  else if (y>=a) and (y<=b) then
   begin
    l:=l+1;
    ab[l]:=y;
   end
  else
   begin
    m:=m+1;
    ost[m]:=y;
   end;
 end;
close(f);
Writeln('less_a: ');
for i:=1 to k do
Write(less_a[i],'  ');
writeln;
Writeln('ab: ');
for i:=1 to l do
Write(ab[i],'  ');
writeln;
Writeln('ost: ');
for i:=1 to m do
Write(ost[i],'  ');
Readln
end.