Problème d'execution

Bonjour à touts ,merci beaucoup a votre accueil

j'ai une problème dans l'execution en pascal

QUESTION
Ecrire une spécification et déduire un pascal d'un programme permettant de remplir et d'afficher les éléments des tableaux tp et tn à partir d'un tableau t de n entier saisis par l'utilisateur .
tp = tableau positive
tn = tableau négative

la solution

program tableau ;
uses wincrt ;
type
tab = array [1..25] of real;
var
t,tp,tn:tab ;
n,i:integer ;
begin
writeln (' entrer la taille du tableau ');
readln (n);
end.
for i:= 1 to n do
begin
repeat
writeln ('enter les valeur de t ') ;
readln (t[i])
until ( t[i] in [-20..20]
end ;
for i := 1to n do
if t[i] < 0 then
tn := t[i];
end ;
end;
for i := 1 to n do
if t[i] > 0 then
tp := t[i];
end ;
end ;
write ( tp, tn );
end;

je souhait que vous trouvez le bien solution
et merci d'avance