Pomoc oko zadatka u Pascalu

[ batagope85 @ 06.10.2008. 23:32 ] @

Problem je sledeci. Napisao sam kod za zadatak, ali kada pokusam da ga kompajliram, javlja mi gresku "illegal expression". Zadatak glasi ovako: Napisati program koji se na osnovu niza a[1], a[2],..., a[2*n] formiraju nizovi b[1], b[2],...,b[n] i c[1], c[2],..., c[n] ;iji su elementi redom jednaki a[1], a[3], ..., a[2*n-1] i a[2], a[4], ..., a[2*n]..
A evo i koda:

Code:

// kreiranje dva niza od jednog postojeceg

Program DvaNiza(input,output);
Uses Dos,Crt;
const
    m = 20;
type
    niz = array[1..m] of real;
var
    n:integer;
    a,b,c:niz;

    // ucitavanje elemenata niza
    procedure citaj(n:integer; var a:niz);
       var i:integer;
       begin
          for i:=1 to n do
             read(a[i])
       end;

    // formiranje novih nizova
    procedure formirajNizove(n:integer; a:niz; var b,c:niz);
       var i:integer;
       begin
          for i:=1 to n do
             begin
                b[i] = a[2*i-1];
                c[i] = a[2*i]
             end
       end;

    // ispisivanje elemenata novog niza
    procedure pisi(n:integer; var a:niz);
       var i:integer;
       begin
          for i:=1 to n do
             write(a[i]:5:2)
       end;

begin
    write('Unesite broj elemenata niza A: ');
    readln(n);
    write('Unesite elemente niza A: ');
    citaj(n,a);
    formirajNizove(n,a,b,c);
    write('Niz b: ');
    pisi(n,b);
    write('Niz c: ');
    pisi(n,c);
    readkey
end.

Svaka pomoc je dobrodosla.