Duvida Registro Delphi?

program Exercicio_1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type FORM = record
              nome: String;
              idade: integer;
              RG: integer;
              fumante: char;
              destino: String;
           end;
type LUGARES = array [1..3, 1..8] of FORM;
type QTDONIBUS = array [1..10] of LUGARES;

var

    passageiros: LUGARES;
    cadastro: FORM;
    onibus: QTDONIBUS;
    i: integer;
    j: integer;
    l: integer;

{*********function RoRp (onibus:AFL):AFL;**********}
begin
   for l:=1 to 10 do
   begin
       for i:=1 to 3 do
       begin
            for j:=1 to 8 do
            begin

                 writeln ('Informe NOME..:');
                 readln (onibus[l].passageiros[i,j].cadastro.nome);
                 writeln ('Informe IDADE..:');
                 readln (cadastro[i,j].idade);
                 writeln ('Informe RG..:');
                 readln (cadastro[i,j].RG);
                 writeln ('Informe FUMANTE (S/N)..:');
                 readln (cadastro[i,j].fumante);
                 writeln ('Informe DESTINO..:');
                 readln (cadastro[i,j].destino);

           end;

       end;
   end;




end.