Делфи.Консоль.

[Jane_Air]

Добавить данное число перед элементом с заданым индексом.Если индекс выходит за границы рабочей части массива,то число добавляется в конце.Учесть,что длина рабочей части увеличивается. Число и индекс задаются с помощью клавиатуры.

Не выводит на экран последнее число.Что не так?

procedure dobavl(var m:mass;n:integer);
var q,ii,k,i,d:integer;
begin
writeln('vvedite chislo'); readln(q);
writeln('vvedite index');  readln(ii);
if ii>=n+1 then begin
                  n:=n+1;
                  m[n]:=q;
                end
           else begin
                  n:=n+1;
                  k:=m[ii]; m[ii]:=q;
                  for i:=ii+1 to n do
                                begin
                                   d:=m[i];
                                   m[i]:=k;
                                   k:=d;
                                end;
                end;
end;

procedure outMass(const m:mass;n:integer);    
var i:integer;
begin
  for i:=1 to n do begin
                      write(m[i]);
                      writeln;
                   end;
end;

[Mad_Cat]

Учесть,что длина рабочей части увеличивается

procedure dobavl(var m:mass; var n:integer);

[Jane_Air]

Так а что именно неправильно?Как должно быть?
Помогите,пожалуйста..

[Serge_Bliznykov]

Сообщение от Jane_Air

Так а что именно неправильно?Как должно быть?
Помогите,пожалуйста..

так Вам уже помогли.
найдите отличие.
ваш код:

procedure dobavl(var m:mass;n:integer);

исправленный код (из сообщения Mad_Cat):

procedure dobavl(var m:mass; var n:integer);

[Jane_Air]

Спасибо огромное!
Извините,не заметила((