[morebeauty]

Сорь, ошибочка... Вот так

Код:

procedure xxx;
var
i,M,N,FileNum:integer;
begin
FileNum:=1;
for i:=1 to N do
begin
//тут должен быть код записи строки с номером i в файл с номером FileNum
if ((i mod (N div M))=0) and (FileNum<M) then inc(FileNum);
end;
end;