Подправьте рограммудля вычисления суммы для заданного n

[Figushkin]

Написать программу, в Паскале, вычисления суммы формула.JPG
для заданного n. Дробь должна быть несократимой (p, q - натуральные).
Я ввожу n(кол-во элементов) и мне в ответ идет P/Q не сокращаемая;

Program shest;
uses crt;
var n,p,q,i,c,z:integer;

procedure pervaya(n:integer; var p,q:integer);
var c,z:integer;
begin
p:=0;
q:=0;
for i:=2 to n do
begin
if odd(i) then
p:=p*i-q
else
p:=p*i+q;
q:=q*i;
end;
c:=p;
z:=q;
while c<>z do
Begin
if c>z then
c:=c-z
else
z:=z-c;
end;
end;


begin
clrscr;
repeat
write('vvedite naturalnoe chislo n=');
readln(n);
until n>0;
pervaya(p,q,n);
writeln ('P/Q=', p,'/',q);
readln;
repeat until keypressed;
end.

не работает нормально.
Надо обязательно через процедуру.
исправьте плз.

[Z1000000]

Program shest;
uses crt;
var n,p,q,i,c,z:integer;

procedure pervaya(n:integer; var p,q:integer);
var c,z:integer;
begin
p:=0;//все на 0 будешь умножать? p:=1;
q:=0;//тож самое q:=1;
for i:=2 to n do
begin
if odd(i) then
p:=p*i-q // здесь наоборот, если нечетное то + p:=p*i+q
else
p:=p*i+q;// здесь наоборот, если четное то - p:=p*i-q
q:=q*i;
end;
{ // а это для чего ?
c:=p;
z:=q;
while c<>z do
Begin
if c>z then
c:=c-z
else
z:=z-c;
end;
}
end;

begin
clrscr;
repeat
write('vvedite naturalnoe chislo n=');
readln(n);
until n>0;
pervaya(p,q,n); // порядок переменных перепутал pervaya(n,p,q);
writeln ('P/Q=', p,'/',q);
readln;
repeat until keypressed;
end.

ну а все вместе

Program shest;
uses crt;
var n,p,q,i,c,z:integer;

procedure pervaya(n:integer; var p,q:integer);
var c,z:integer;
begin
p:=1;
q:=1;
for i:=2 to n do
begin
if odd(i) then
 p:=p*i+q
else
 p:=p*i-q;
q:=q*i;
writeln(p,' / ',q); //Это для наглядности
end;
end;

begin
clrscr;
repeat
write('vvedite naturalnoe chislo n=');
readln(n);
until n>0;
pervaya(n,p,q);
writeln ('P/Q=', p,'/',q);
readln;
repeat until keypressed;
end.

[Figushkin]

Спасибо!!!