Мандарины. Остатки от делений. Опции

[Faradey]

На праздник 8 марта ребята решили сделать подарки девушкам. Готовя подарки, они разложили в каждый подарок по открытке и по мягкой игрушке. А когда начали раскладывать мандарины, то возникло осложнение. Сначала они разложили мандарины по m штук в каждый пакет (в другие пакеты - яблоки), оказалось, что в одном из пакетов m - 1 мандарин, когда положили по m - 1 мандарин, осталось m - 2, попытались положить по m - 2 мандарин , осталось m - 3, и т.д., когда попытались положить по 2 мандарина, то остался 1 мандарин. Какую же количество мандарин закупили ребята?

program new;
uses crt;
var
m,n,i:integer;
begin
clrscr;
read(m);
for i:=1 to 1000 do begin
if (i mod m=m-1) and  (i mod m-1=m-2) and  ((i mod m-2)=m-3) and  (i mod 2<>0) and (i>m) then  begin
writeln(i); break; end;
end;
 
readkey;
end.

набросал что то, накажется набросал бред, может условие не так понял, буду благодарен за помощь