В чем проблема? Код должен выглядеть примерно так
Код:
procedure xxx;
var
i,M,N,FileNum:integer;
begin
FileNum:=1;
for i:=1 to N do
begin
//тут должен быть код записи строки с номером i в файл с номером FileNum
if ((i div (N div M))=0) and (FileNum<M) then inc(FileNum);
end;
end;
Будет происходить следующее (на примере приведенных тобой цифр)
Строки будут перебираться поочередно. Как только счетчик строк i дойдет числа, кратного N div M (то есть 1064), и если номер файла меньше, чем допустимое M номер файла меняется на следующий.