bonjour, je sollicite votre aide pour 2 exercices en pascal...
j'ai plus ou moins la trame mais ils ne veulent pas fonctionner, l'ordinateur m'indique la faute à la ligne mais je ne la trouve pas car il me met error syntaxe ... voici mes reponses si vous découvrez l'erreur merci d'avance de me la faire parvenir.
exercices 1  
program nombre;
var x,b,i,s,a:integer
fin:boolean;
begin
i:=0;
x:=100
writeln ('joueur 1 entre un nombre a');
readkey (a);
begin
i:= i+1;
writeln ('joueur 2 entre un nombre b');
readln (b);
begin
if (b<a) then writenln ('le nombre est b<a<x');
if (b>a) then writeln ('le nombre b<x<i');
end;
if b=a then begin
writeln ('reussi'();
end;
writeln ('vs avez essayé i fois');
if i <5 then writeln (TB');
if i >5 then writeln ('S');
end;
until b=a
end.
 
et le 2
program texte;
var p,m: string  
var z: boolean;
var l,i,x: integer;
begin
writeln ('entrer un texte avec ponctuation adéquate'),
readln (p);
l:= length (p);
x:=1;
for i:= 1 to l do
z:= ''or '.' or ';' or':' or '( )';
if z copy (p,i,1)= ' ' or '.' then  
begin
if i>x then writeln ((copy(p,x+1,i-1));
x:=i
end;
end.
 
merci encore

Bon déjà, utilise l'indentation, cela sera plus lisible.
Ensuite, si tu compte fais relire/corriger ton code par d'autres personnes, commente le un peu plus.
Recopie ton post dans la section concerné au developpement et explique leur un peu plus ce que fais ton prog.

Normal la parenthèse qui traîne ?
writeln ('reussi'(); ( writeln ('reussi'); ??)

+    if (b<a) then writenln ('le nombre est b<a<x');
 
Et il y a une section dédiée à la programmation