проблемка в паскале..

[uses_non]

ошибка тут выскакивает, может кто нить поможет...

program k7;
uses crt;
const m=15;
var q,w,c,i,j,n:integer;
z,x,e:real;
a:array[1..m] of integer;
b:array[1..m] of integer;
begin clrscr;
writeln('исходный массив:');
Randomize;
for i:=1 to m do
begin
a[i]:=random(16)+2;
write(a[i]:8);
end;
writeln;
{задача №1}
writeln('задача №1');
for i:= 1 to n do
if z<abs(a[i]) then
begin
z:=abs(a[i]);
c:=i;
end;
writeln(' ',c);
{задача №2}
writeln('задача №2');
for i:= 1 to n-1 do
begin
if c<1 then
if a[i]>0 then
x:=x+a[i+1];
c:=1;
end;
writeln(x:6:2);
{задача №3}
writeln('задача №3');
writeln('введите границы интервала [a,b]');
write('a=',' ');
read(q);
write('b=');
read(w)
for i:= 1 to n do
if (trunc(a[i]) >=q) and (trunc(a[i]) <= w) then
write(' ',a[i]:6:2);
else
b[i]:=a[i];
for i:= 1 to n do
if b[i]<>0 then
write(' ',b[i]:6:2);
writeln;
{задача №4}
writeln('задача №4');
for i:= 1 to n-1 do
for j:= 1 to n-1 do
if a[i]>a[i+1] then
begin
e:=a[i];
a[i]:=a[i+1];
a[i+1]:=e;
end;
for i:= 1 to n do
write(' ',a[i]:6:2);
writeln;
{задача №5}
writeln('задача №5');
for i:=1 to n do
if a[i]>0 then
begin
a[j]:=a[i];
write(' ',a[j]:6:2);
end;
readkey;
end.

[Pein95]

ну вопервых сделай етот код читабельным... во вторых что он делает и какая ошыбка...