Procedure affichecarré en Pascal

Bonjour,

J'ai besoin d'une procedure ( en langage pascal ) qui affiche un carré avec une longueur de coté donné par l'utilisateur, jai reussi a faire sa :

voici le mon programme complet :

"
program ex10p11affichecarré;

// Procedure //

procedure affiche(a : integer);

var b : integer;

begin
for b:= 1 to a-1 do
write('X');
writeln('X');
end;

// Programme Principal //

var i, x : integer;

begin

writeln('Choisissez la Langueur du Cote :');
readln(x);
if x=1 then
write('X')
else
begin
writeln('Votre Carre :');
i:=0;
while i<x do
begin
inc(i);
affiche(x);
end;
end;
readln;

end.
"
Y at-Il Une Idéee Moins Courte :p avec une procedure bien sur

Merci