Hogyan kell ezt a feladatot megoldani Free Pascalban?

Azonban sajnos a tetszőleges elem tetszőleges két tagjánál megakadtam: :(

Uses crt;

var i:integer;

v: array[integer] of integer;

Procedure adatbekeres;

Var j:integer;

Begin

Writeln('Add meg a vektor elemit, kil‚p‹k˘d: 1-n‚l kisebb sz m!');

While i>0 do

begin

Writeln('A vektor ',i,'. eleme: ');

Readln(v[i]);

end;

Writeln('Akkor a te elemeid: ');

for j:=1 to i do

Write(v[i],', ');

End;

Procedure csere;

Var a,b,j,x:integer;

Label ujra;

Begin

ujra:

Writeln('H nyadik elemet cser‚ljem?');

Readln(a);

Writeln('H nyadikra cser‚ljem?');

Readln(b);

If (a>=1) and (a<=i) and (b>=1) and (b<=i) and (a<>b) then goto ujra

else

begin

x:=v[a];

v[a]:=v[b];

v[b]:=x;

end;

Writeln('Akkor az Łj sorrend: ');

For j:=1 to i do

Write(v[j],', ');

End;

BEGIN

ClrScr;

Adatbekeres;

writeln('A folytat shoz nyomj ENTER-t!');

Readln;

csere;

Writeln('A kil‚p‚shez nyomj entert!');

Readln;

END.

Mi lehet a hiba? :O

Sajnos az a gond, hogy a könyvben, amiből tanulok, még ilyenek nincsenek (Val, Upcase, Dec, Inc). Tudom, hogy semeddig sem tartana utánanézni, de mivel a feladatot így kell megoldani, hogy ezeket még nem ismerem. Az előző megoldásomban már magamtól is több hibára rájöttem, most jelenleg annál a bizonyos adatbekeres eljárásnál itt tartok:

Procedure adatbekeres;

Var j:integer;

Begin

Writeln('Add meg a vektor elemit, kil‚p‹k˘d: 0-n l kisebb sz m!');

i:=0;

While v[i]>(-1) do

begin

i:=i+1;

Writeln('A vektor ',i,'. eleme: ');

Readln(v[i]);

end;

Writeln('Akkor a te elemeid: ');

for j:=1 to i do

Write(v[i],', ');

End;

ekkor nekem az utoljára beírt negatív számot adja i-szer...

Bocs, hogy ennyire értetlen vagyok, de magamtól tanulom, illetve szeretnék párhuzamosan a könyvvel haladni, később biztosan majd már máshogy és egyszerűbben is meg tudom oldani :)