Увеличить все положительные элементы массива на 1 на паскале

Var a:array[0..1000] of integer;
      k,i,n:integer;
begin
 readln(n);
 for i:=1 to n do 
 read(a[i]);
 dor k:=1 to n do begin
   if a[k]>0  then
   a[k]:=a[k]+1;
end;
end.