Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину

[mr.Starosta]

Помогите пожалуйста решить задачу
целую неделю пытаюсь но не получается
Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину

[Stilet]

Показывай как пытался?

[mr.Starosta]

Сообщение от Stilet

Показывай как пытался?

Вот что смог, но не работает, еще порылся по сайтам но там все глухо

PROGRAM kolpolog;
uses crt;
procedure InsChrToPosWords(var ds: string; vs: integer);
var
i: integer;
s1,s2: string;
begin
s1:='';
s2:='';
for i:= 1 to length(ds) do
begin
s1:= s1 + ds;
 if ds=' ' then
 begin
  if length(s1)-1 = vs then
  insert(' ', s1, length(s1)-2);
  s2:= s2 + s1;
  s1:= '';
 end;
end;
ds:= s2;
end;


var
s: string;
begin
s:='12 123 1234 12345 12345 12345 12345678 123456789';

InsChrToPosWords(s,5);

end.

Помоги решить эту задачу

[Poma][a]

PROGRAM kolpolog;
 
 uses crt;
 
 procedure InsChrToPosWords(var ds: string; vs: integer);
 var
	i: integer;
	s1: string;
 begin
	s1:='';
	for i:= 1 to length(ds) do
	begin
		if ds[i]=' ' then
		begin
			if length(s1) = vs then
				insert(' ', ds, i);
			s1:= '';
		end
		else 
			s1 := s1 + ds[i]
		    
	end
	
end;


 var
	s: string;
	
 begin
 	s:='12 123 1234 12345 12345 12345 12345678 123456789';
	s := s + ' ';
	
	InsChrToPosWords(s,5);
	WriteLn (s)
 end.

Но в Вашем задании сказано вставить пробелы только после последних 2-ух. Так что выше представленный алгоритм требует некоторых преобразований..

[mr.Starosta]

Не работает программа. Что надо исправить?

[Poma][a]

Не работает программа.

Тоесть не работает? Выдает неверный ответ? Не компилируется? Или что-то еще?

[alexander13]

Сообщение от Poma][a

Тоесть не работает? Выдает неверный ответ? Не компилируется? Или что-то еще?

Наверное, нужно так

insert(' ', ds, i - 2);

Ведь пробел нужно вставить перед двумя последними символами слова.

[Poma][a]

Наверное, нужно так
Код:

insert(' ', ds, i - 2);

Ведь пробел нужно вставить перед двумя последними символами слова.

Точно.. Блин.. Я-то думал что нужно вставлять пробел после 2-ух последних слов, заданной длины.. Прошу простить.. Не правильно прочитал.. Каюсь.. Виновен..

[mr.Starosta]

Сообщение от alexander13

Наверное, нужно так

insert(' ', ds, i - 2);

Ведь пробел нужно вставить перед двумя последними символами слова.

Я пробовал такой код. пробел ставиться только в одном слове из строчки, а мне надо чтобы пробел стоял во всех словах

[Stilet]

Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину

Опять я со своим лезу:

var s:string; a:array[1..100] of string;
  mi,i,count:integer;
begin   {$o-}
 s:='Hello my world';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 s:=''; 
 write('Минимальная длина: ');readln(mi);
 for i:=1 to count do begin
  if length(a[i])=mi then insert(' ',a[i],Length(a[i])-2);
  s:=s+a[i]+' ';
 end; write(s);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Подходит?