Помогите с задачей

Помогите плз. Вот написал, но выдает не то что нужно. Исправьте плз (на паскале):

Code:

{$N+}
var
  x:array [1..10000] of integer;
  c: comp;
  n,m,i:integer;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);

  readln(n,m);

  for i:=1 to m do begin
  read(x[i]);
  c:=((x[i] mod n)*n)+c;
  if (x[i]<=c) then
  c:=(c-x[i]);
  end;

  writeln(c:0:0);
  close(input);
  close(output);
end.

Задача решена уже) Помощь не требуется. Удалите тему)