Langage pascal

Salut

*S.V.P des questions:
1-est-ce-que se sont des pgmme just ?..
2-mon probleme est dans: function ConstruitPhrase(phrase:string):string;
j'ai pas reussi a la commprendre,ele est dificille alors je l'ai simplifier
(voir exemple:)
3- S.V.P comment est le pgmme et comment deviendra si pgmme1 et pgmme2
utiliser phrase avec virgule?


pgmme1 simplifier_phrase;(*boucle for *)
var
s,phrase : string;
i:integer;
begin
phrase:' ';
for i=1 to 3 do
writlen ('entrer un mot:');
redlen (s);
phrase:=phrase+s;
end;
witlen ('la phrase complete est:');
writlen (phrase);
end.

pgmm2 simplifier_phrase;(*boucle while*)
var
s,phrase : string;
i:integer;
begin
phrase:=' ';
i=1;
readlen(s),
while i<>3 do
wriltlen('entre un mot:');
phrase:=phrase+s;
readlen(s),
i:=i+1
end;
writlen('la phrase complete est:');
writlen (phrase);
end.

pgmme2 modifier phrase_virgule;(*test*)
var
s,phrase : string;
i:integer;
begin
phrase:=' ';
for i=1 to 3 do
readlean(s); (*s.v.p,c'est just?*)
if phrase =' ' then
phrase:=s;
else
phrase:=phrase+','+s;
end;
end.


exemple :Program MonDeuxiemeProg;

function ConstruitPhrase(phrase:string):string;
var s : string;
begin
readln(s);
ConstruitPhrase:=phrase+', '+s;
end;

var
Phrase : string;
i : integer;
begin
Phrase:=''; {initialiser à chaine vide}

for i:=1 to 3 do begin
writeln('Entrez un mot :');
Phrase:=ConstruitPhrase(Phrase);
end;
{afficher le résultat}
writeln('La phrase complète est :');
writeln(Phrase);

writeln('Appuyer sur <entrée> pour quitter');
readln;
end.