[Евгений79]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,M,N,FileNum:integer;
begin
 memo1.Clear;
 FileNum:=1;
 n:=11;
 m:=3;
 for i:=1 to N do
 begin
  //тут должен быть код записи строки с номером i в файл с номером FileNum
  if ((i div (N div M))=0) and (FileNum<M) then inc(FileNum);
  memo1.Lines.Add('i = ' + IntToStr(i) + '; Filenum = '+ IntToStr(filenum));
 end;

end;

i = 1; Filenum = 2
i = 2; Filenum = 3
i = 3; Filenum = 3
i = 4; Filenum = 3
i = 5; Filenum = 3
i = 6; Filenum = 3
i = 7; Filenum = 3
i = 8; Filenum = 3
i = 9; Filenum = 3
i = 10; Filenum = 3
i = 11; Filenum = 3