Programmation pascal

Tu fais une boucle de 1 à xxx combiné avec un test en if then else
occupé, pas occupé, en attente, en option, etc...
faudrait essayer de bosser un peu
apprendre çà vient en lisant ces cours !!!
A+

merci
mais je ne sais pas comment :
la resrvation avec et sans confirmation
annulation d' une place reserveé
etablissement définitive des places reserveés
remise des cartes d'acces qui ont le ok au niveau de l'aeorport
etablissement de la liste d'attente (pointeur)
::::::::::::::::::::des places libres
remise des cartes d'acces de la liste d'attente
le reste de la liste d'attentessera conservé pour le voyage du lendemain.

regardez comment j'ai commencer:
program avion;
const n=10;
type date =record
j:1..31;
m:1..12
a:integer;
end;
type voyageur =record
nom:string[15];
prenom:string[15];
adresse:string[15];
date-de -nas:date;
date -de- vol :date;
situation:(fumeur,nonfumeur)
end;
type tab:array[1..n] of voyageur;
var
i,j,k:integer;
t1,t2:tab;
begin
for i:=1 to n do
read(t[i].nom);
read (t[i].prenom);
et quand j'arrive d'ecrire read(t[i].date-de-nas);
et compilateur affiche un erreur je ne sais pas pourkoi
merci

read(t[i].adresse