Probleme avec l'execution d'1 prog en pascal?

Fermé
SindaM Messages postés 42 Date d'inscription mardi 29 juillet 2008 Statut Membre Dernière intervention 17 octobre 2009 - 8 févr. 2009 à 16:05
Bonjour,
il s'agit de créer un prog en pascal qui supprime un element x donné d'1 tableau t donné en décalant les éléments de t de droite a gauche a partir de la position p de x
voici ce que j'ai fais mai lors de l'execution le programme me sort ts les elements de t sans avoir enlevé x:



program decalageprog;
uses wincrt;
type tab= array [1..100]of integer;
var T:tab; n:integer;

procedure remplissage (var T:tab; var n:integer);
var i:integer;
begin

repeat
writeln('donner n');
readln(n);
until n in [1..50];
for i:= 1 to n do
begin
writeln('T[',i,']=');
readln(T[i]);

end;
end;

procedure decalage(var T:tab; var n:integer);
var x,p,i:integer;
begin

writeln(' ecrire x');
readln (x);

if T[i]=x then
begin
i:=p; ;
for i:= n downto (p+1) do
T[i]:= T[i-1];

end;
end;
procedure affiche (T:tab);
var i:integer;
begin
for i := 1 to n do
writeln (T[i] );
end;


begin

remplissage (T, n);
decalage (T,n);
affiche (T);

end.


merci de m'aider a régler le probleme...
A voir également: