Program String45;
var
Dano:string;
i:integer;
Abol:integer;
otvet:string;
s,slovo:string;
begin
 Write('Введите длину слова:');
 readln(Abol);
 Write('Введите строку:');
 readln(Dano);
 otvet:='';
 slovo:='';
for i:=1 to length(Dano) do
begin
if (Dano[i]<>' ') then begin slovo:=slovo+dano[i];end;
 if ((Dano[i]=' ')or(i=length(Dano)))and(Dano[i-1]<>' ') then
  begin
  if (length(slovo)=Abol-1) then
    begin
     otvet:=otvet+slovo[1]+ slovo[2];
     otvet:=otvet+' ';
     delete(slovo,1,2);
    end;
 otvet:=otvet+slovo;
end;
if (Dano[i]=' ')and(Dano[i+1]<>' ') then slovo:='';
if (Dano[i]=' ') then begin otvet:=otvet+' ';end;
end;
Writeln('  Новая строка:',otvet);
end.