В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов массива, расположенных после первого элемента, равного нулю — Pascal(Паскаль)

uses crt;
const n=10;
var m:array[1..n]of integer;
i,k,s:integer;
 
begin
 clrscr;
 write('Введите массив ->');
 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('В массиве нет нулей!') else
 begin
  s:=0;
  for i:=k+1 to n do s:=s+abs(m[i]);
  writeln('Сумма модулей = ',s);
 end;
 readln;
end.