Чинить   яхты  –  работа   не   очень   приятная . разобрать предлохение

program zadacha;var       k,x,i,n:integer;       m:Array[1..100] of Integer;begin      k:=0;      readln(n);      for i:=1 to n do begin             readln(m[i]);      end;      for i:=2 to n do begin        if m[i]>m[1] then k:=k+1;    end;    write(k);end.

Чинить(сказуемое)яхты(дополнение)-работа(подл.)Не очень приятная(опр.)01