Вычислить сумму модулей элементов массива, расположенных после первого элемента

program i1;
uses crt;
const n=5;
var m:array[1..n]of integer;
i,k,s:integer;
 begin
 clrscr; 
 write('Vvtdi massiv ->');
 for i:=1 to n do read(m[i]);
 readln;
 k:=1;
 while (k<=n) and (m[k]<>0) do inc(k);
 if k>n then writeln('V massive net nulei!') else
 begin
  s:=0;
  for i:=k+1 to n do s:=s+abs(m[i]);
  writeln('Summa modulei = ',s);
 end;
 readln;
end.

program i3
uses crt;
var m,m1:array[1..100]of integer;
i,j,n,k:integer;
 
begin
 clrscr;
 randomize;
 write('N-> ');
            readln(n);
 writeln('Ishodnii massiv');
 for i:=1 to n do
 begin
  m[i]:=-50+random(150);
  write(m[i],' ');
 end;
 
 k:=0;
 for i:=1 to n do if i mod 2=0 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 for i:=1 to n do if i mod 2=1 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 writeln('Otsortirovanni massiv: ');
 for i:=1 to n do write(m1[i],' ');
 readln;
end.

program idz6_1_1;
uses crt;
const n=5;
var m:array[1..n]of integer;
i,k,s:integer;
 
function Asum(idx: integer): integer;
var
i: integer;
begin
  Result:=0;
  for i:=idx to n do
  inc(Result,abs(m[i]));
end;
 
 begin
 clrscr;
 write('Vvtdi massiv ->');
 for i:=1 to n do read(m[i]);
 readln;
 k:=1;
 while (k<=n) and (m[k]<>0) do inc(k);
 if k>n then writeln('V massive net nulei!') else
 writeln('Summa modulei = ',Asum(k+1));
 readln;
end.

function Asum(idx: integer): integer; 
var i, sum: integer;
begin 
for i:=idx to n do 
inc(sum,abs(m[i])); 
Asum:=sum;
end;

function Asum(idx: integer): integer; 
var i, sum: integer;
begin
{здесь sum иниц.}sum:=0;
for i:=idx to n do 
inc(sum,abs(m[i])); 
Asum:=sum;
end;