Задача на текстовые файлы, в которой всё забавно делается в один столб. Блокноты естественно создаем сами.
************************************************program Project2;

{$APPTYPE CONSOLE}


uses
SysUtils;

procedure new(n1,n2:string;t:integer);
var f1,f2:textfile; x,y:string; k,i:integer;
begin
assignfile( f1,n1);
assignfile( f2,n2);
reset(f1); rewrite(f2);
y:='';

while not Eof(f1) do begin
readln(f1,x);
k:=2;

for I := 1 to length(x) do begin
if (k<=t) and (x[i]<>'.') then
y:=y+x[i] else begin y:=y+x[i];
writeln(f2,y); y:=''; k:=1; end;
k:=k+1;
end;
y:='';
end;

closefile(f1); closefile(f2);
end;

var n1,n2:string; t:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here } read(t);
n1:='File1.txt'; n2:='File2.txt';
new(n1,n2,t);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.