Простые числа.Добавление в значения массив на Делфи

[Jane_Air]

Добавить данное число перед последним элементом,значение которого не является простым числом. Если таких значений нет,то значение добавляется в конце
Зацикливает и еще что-то неправильно..
Может заметите ошибку..

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const Nmax=20;
type mass=array[1..Nmax] of integer;

procedure gMass1( var m:mass;   {заповнення випадковими числами}
                 var n:integer);
var i:integer;
begin
      randomize;
      n:=random(20);
      randomize;
      for i:=1 to n do
      m[i]:=10+random(21);
end;



procedure gMass2( var m:mass;             {заповнення з клавіатури}
                  var n:integer);
                  var i:integer;
begin
      repeat  writeln('vvedit n vid 1 do 10');
              readln(n);
      until (n>=1)and(n<=10);
      for i:=1 to n do begin
                           write('vvedit element z indexom ',i,' ');
                           readln(m[i]);
                       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;

function prime(var x:longint):boolean;                  {просте число}
var i:longint;
begin
    x:=abs(x);
    prime:=true;
    for i:=2 to round(sqrt(x)) do if x mod i = 0
                                  then prime:=false;
end;


function ostElem(var n:integer):integer;
var i:integer;
var m:mass;
begin
i:=n;
while prime(m[i]) do dec(i);
ostElem:=i;
end;



procedure dodav(var m:mass;
                var n:integer);
var q,ii,k,i,d,ost:integer;
begin
writeln('vvedit chuslo'); readln(q);
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;



var a,k,n,i,ii:integer;m:mass;

begin
writeln('vuberit sposib zapovnen masuvy: vupadkovi chusla - vvedit 1');
writeln('                                z klaviatyru - bud-yake inshe shuslo');
readln(a);
if a=1 then begin
                gMass1(m,n);
                outMass(m,n);
            end
       else gMass2(m,k);
       writeln;
ostElem(n);
ii:=ostElem(n);
dodav(m,n);
writeln;
outMass(m,n);
readln;

end.

[SaLoKiN]

function ostElem(var n:integer):integer;
var i:integer;
var m:mass;

кто такой массив M, и чего он содержит?

begin
i:=n;
while prime(m[i]) do dec(i);

куда лезем с n, при условии что числа вводятся до n-1

далее

begin
writeln('vvedit chuslo'); readln(q);
if ii>=n+1 then begin

кто такой ii?

[SaLoKiN]

и еще

const Nmax=20;
type mass=array[1..Nmax] of integer;
...
    n:=random(20);
....
if ii>=n+1 then begin
                  n:=n+1;

что будет с массивом если n равно 20?

[Mad_Cat]

если n равно 20?

n не будет равно 20 никогда)

random(20) = [0..19]

[Jane_Air]

кто такой массив M, и чего он содержит?

Это массив, который содержит первоначальные элементы..
в этой функции мы ищем последний элемент в этом массиве,который не является простым числом,точнее его индекс.

куда лезем с n, при условии что числа вводятся до n-1

Почему?чисел же n..
отсчет начинаем с конца,поэтому i:=n

Код:

begin
writeln('vvedit chuslo'); readln(q);
if ii>=n+1 then begin

кто такой ii?

это индекс элемента в массиве,перед которым нужно вставить данное число
Его нам возвращает функция OstElem,а в теле программы есть следующее: jj:=ostElem(n)

[SaLoKiN]

to Mad_Cat, не то хотел сказать. но да...тут затупил =)
to Jane_Air это были ваши ошибки, а эти вопросы наводящие для исправления =)
итак.
вопрос 1: проблема в том что вы не передаете массив в процедуру.
вопрос 3: индекс ii в вашей процедуре не получает значение.
вопрос 2: затупил с циклами =)

[Jane_Air]

вопрос 1: проблема в том что вы не передаете массив в процедуру.

и как это сделать?(

[SaLoKiN]

а как вы это делали до этого в 4х процедурах?

[Stilet]

function ostElem(var n:integer):integer;
var i:integer;
var m:mass;
begin
i:=n;
while prime(m[i]) do dec(i);
ostElem:=i;
end;

Jane_Air, тебе нужно почитать о видимости переменных.
var <имя переменки> говорит что эта переменная будет видимой, и с ней можно работать только в той области для которой он описан. Давай разберем твой код?
Процедура ostElem() сожержит внутри var m:mass;
Он никак не наполняется ничем абсолютно, но она с ним работает.
эта переменная никак не равна той, что описана перед главной программой, сразу после всех процедур, поэтому эта процедура будет работать с неверными данным.
А нужно как минимум передавать эту переменную, как сделано скажем тут:

procedure outMass(const m:mass;n:integer);

На что тебе и пытаются намекнуть.

[SaLoKiN]

Просто я думал, что коль уж везде вызывается правильно то здесь это просто оЧепятка и намека будет более чем =)