tab_positive; tab_negatif

il ya une faute qlq part ....????,!!!!!!!!!!!!!


program tableau;
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];

for i:=1 to n do
begin
write ('t[',i,']');readln(t[i])
end

;j:=1;k:=1 ;
for i:=1 to n do
begin
if t[i] >= 0 then
tp[j]:=t[i] ;j:=j+1 ;
begin
tn[k]:=t[i];k:=k+1
end

;for i:=1 to k do
begin
write('t[',i,']');readln(t[i])
end

;for i:=1 to j do
begin
write (tp[i])
end

;for i :=1 to k do
begin
write (tn[i])
end


end;
end.

program tableau;
uses wincrt;
type
tab= array[1..100] of integer;
var
t,tp,tn:tab;
n,i,j,k:integer;
begin
repeat
write('n =');readln(n);
until n in [5..20];

for i:=1 to n do
begin
write ('t[',i,']');readln(t[i]);
end;
j:=1;k:=1 ;
for i:=1 to n do
if t[i] >= 0 then
begin
tp[j]:=t[i] ;
j:=j+1 ;
end
else
begin
tn[k]:=t[i];
k:=k+1;
end;
for i:=1 to (k-1) do
begin
writeln('tn[',i,']=',tn[i]);
end;
for i:=1 to (j-1) do
begin
writeln ('tp[',i,']=',tp[i]);
end ;
end.
{au niveau de l'affichage du tp on doit s'arrêter à (j-1) car on a incrémenté j après la dernière affectation. de même pour k