Bonjour à tous

J'ai un programme qui s'exécute bien mais je ne peux pas faire une fonction qui modifie une personne (modifier le numéro de téléphone exemple).
Voici mon programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program an;
const NbElements=19;
type personne=record
nom:string;
prenom:string;
tel:word;
end;
var choix,nbr:byte;
var nba,x:integer;
tab:array[0..19] of personne;
 
 
 Procedure menu_add (var NbActuel : byte);
Var info: personne;
Begin
  if NbActuel = NbElements
     then
       WriteLn('Carnet d''adresses rempli !')
     else
       begin
         NbActuel := NbActuel + 1;
         Write ('Nom: ');
         ReadLn (info.nom);
         Write ('Prenom: ');
         ReadLn (info.prenom);
         Write ('Telephone: ');
         ReadLn (info.tel);
         tab[NbActuel] := info;
         WriteLn;
         WriteLn ('La personne ci-dessus a ete ajoute...');
         WriteLn;
       end;
End;
Function menu_search(var nba:byte):integer;
Var nom: string;
    i: byte;
Begin
 i:=0;
 WriteLn ('  |- - - - - - - - - - - - - - ');
 WriteLn ('  |                           |');
 WriteLn ('  |                           |');
 WriteLn ('  | Recherche d''une personne  |');
 WriteLn ('  |                           |');
 WriteLn ('  |                           |');
 WriteLn ('   - - - - - - - - - - - - - - ');
 Write ('Nom:             '); ReadLn (nom);
 While (t[i].nom<>nom) do
     Begin
        i:=i+1;
     End;
  If (t[i].nom=nom) then
     Begin
    WriteLn ('Prenom:          ',t[nba].prenom);
    WriteLn (' Adresse:     ',t[nba]. Adresse);
    WriteLn (' tel:',t[nba].
numero_de_téléphone);
    writeln('la profession :',t[nba].profession) ;
     End
  Else WriteLn ('Aucune personne ne correspond a votre recherche...');
 WriteLn;
 WriteLn ('Pressez ENTER pour revenir au menu principal');
 ReadLn;
 clrscr;
Le programme marche mais il manque une fonction qui modifie une personne : modifier le nom et prénom et adresse.