examen bac pratique 2008 (session 15h30)

voila , j'ai écris ma réponse sur pascal, mais ça m'affiche a chaque fois erreur (du programme lui même et non pas de syntaxe )
alors voila j'aimerais savoir si ma reponse marche sur d'autre pc et bien sur savoir si ma reponse et correct ou nn...merci infiniment

reponse



program devoir;
uses wincrt;
type tab=array[5..30] of string;
var n,c:integer; t:tab;

procedure taille (var n:integer);
begin
repeat
writeln ('entrer la taille');
readln(n);
until (5 <= n) and (n<=30);
end;


procedure saisi (var t:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
writeln ('entrer l''elemen n',i);
readln (t[i]);
end;
end;

function elimination (ch:string):string;
var j:integer;
ch1:string;

begin
ch1:='';
for j:=1 to (length(ch)) do
begin
if (upcase(ch[j]) in ['A'..'Z'] ) then ch1:=ch1+ch[j] ;
end;
elimination:=ch1;
end;


begin
taille(n);
saisi(t,n);
for c:=1 to n do
begin
if (elimination(t[c]) <> '' ) then writeln (c,elimination(t[c]));
end;
end.