Computação TOP10

Program Pzim ;
 const max = 100;
 type Fila = record
  dados : array[1..max]of integer;
      inicio, fim : integer;
     end;
      var
  f1 : Fila;
  num, bus, valor : integer;
   
 procedure criar(var F:Fila);
 begin
     F.inicio := 1;
     F.fim := 1;
 end;

 function filaVazia(F:Fila):boolean;
 begin
     if F.inicio = F.fim then
      filaVazia := true
     else
      filaVazia := false;
 end;

 function filaCheia(F:Fila):boolean;
 begin
     if F.fim > max then
      filaCheia := true
     else
      filaCheia := false;
 end;

 procedure enqueue(var F:Fila;s:integer);
 begin
     if filaCheia(F)then
      writeln('A fila tá cheia!')
     else
     begin
         F.dados[F.fim] := s;
         F.fim := F.fim + 1;
         writeln('Inserção efetuada!');
     end;
 end;

 function dequeue(var F:Fila):integer;
 begin
     if filaVazia(F)then
      writeln('A fila tá vazia!')
     else
     begin
      dequeue := F.dados[F.inicio];
      F.inicio := F.inicio + 1;
     end;
 end;

 function busca(F:Fila; x: integer):integer;
 var
    res: integer;
 begin
   res := 0;
    while not filaVazia(f) do
      begin
        if (f.dados[f.inicio] = x) then
  res := res +1;
  f.inicio := f.inicio +1;
      end;
        busca := res;
 end;
 Begin
     textcolor(white);
criar(f1);
     writeln('A fila está vazia? ', filaVazia(f1));
     writeln('A fila está cheia? ', filaCheia(f1));
     repeat
          writeln ('digite o elemento da lista ou "0" para sair');
          readln (num);
          enqueue (f1, num);
     until (num = 0);
     writeln (' digite o valor que deseja buscar');
     readln (bus);
     valor := busca(f1, bus);
     writeln (' o valor aparece ', valor, ' na lista');
 End.