program mega;
var
   n, k, p, i, s:integer; a:array[1..100] of integer;

begin
 read(k, n);
 for i:=1 to n do
             read(a[i]);
 for i:=1 to n do
  if k<a[i] then
              begin
                p:=k-a[i];
                a[i+1]:=a[i+1]+1;
              end;
  writeln(a[n+1]);
end.

Помогите плиз в чем ошибка!

i have that respons, but actually i didn't pass((