не могу разобраться с массивом

[1Steppenwolf1]

Пока что, я с массивами на " вы ", мало что понимаю, вообщем есть задача. "Найти последний положительный элемент массива, кратный заданному числу, заменить его обратной величиной и поставить на место второго элемента ".. что то я начал делать, но кажется мне там каша полная.


program example_4;
uses crt;
const n=40;
var mas:array [1..n] of integer;
count:integer;
c:char;
Procedure Random_input(var m:array of integer;k:integer);
var i:integer;
begin
randomize;
for i:=1 to k do m[i]:=random(19)-9;
end;
Procedure manual_input(var m:array of integer;k:integer);
var i:integer;
begin
for i:=1 to k do
begin
write('m[',i,']=');
readln(m[i]);
end;
end;
Procedure input(var m:array of integer;var k:integer);
var c:char;
begin
repeat
repeat
write('vvedite kolichestvo elementov massiva: ');
readln(k);
until (k>0) and (k<20);
writeln('Viberite sposob zapolnenya massiva.Nazmite; ');
writeln('1');
writeln('2');
readln(c);
case c of
'1':random_input(m,k);
'2':manual_input(m,k);
end;
until (c='1') or (c='2');
end;
Procedure output(m:array of integer;k:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to k do write(m[i]:3);
writeln;
end;
Procedure ins(var m:array of integer; var k:integer);
var i,j,z:integer;
begin
write('vvedite zadannoe chixlo: ');
readln(z);
for i:=k downto 1 do
if m[i]>0 then
begin
inc(k);
for j:=k downto i+1 do m[j]:=m[j-1];
m[i]:=z;
end;
end;
begin
repeat
clrscr;
writeln
input(massiv,count)
output(massiv,count,'ishodni massiv');
del(massiv,count);
output(massiv,count,'massiv posle udalenia');
ins(massiv,count);
output(massiv,count,'massiv posle vstavki');
write('dlya povtora nazmite 1, lybaya drugaya klavisha-vihod');
readln(c);
until (c<>'1');
end.