Дано предложение. 1) Найти два самые малые по длине соседствующие слова,

Слова разделены пробелом, окончательно же :)

Единственным либо несколькими?

Одним пробелом

Вы мне поможете?

Необходимо найти пару слов с малой суммарной длиной, так?

Да, но чтобы они соседствовали друг с ином

Щас пример приведу.

Входные данные: The thing is enormous. Выходные данные: 7 (на 1 строк), thing is (на 2 строке)

Поначалу выводишь длину этих 2-ух малых соседствующих друг с ином слов

Позже сами эти слова

Var txt: string;
    i,k,n,m,mn: integer;
    a: array of string;
begin
  write('предложение: '); readln(txt);
  k:=0;  mn:=length(txt);
  for i:=1 to length(txt) do
  if txt[i]=' ' then k:=k+1;
  k:=k+1;
  setlength(a,k+1);
  for i:=1 to k-1 do
  begin
    a[i]:=copy(txt,1,pos(' ',txt)-1);
    delete(txt,1,pos(' ',txt));
  end;  
  a[k]:=txt;
  n:=length(a[1]);
  for i:=2 to k do
  begin
    if n+length(a[i])lt;mn then
    begin
      mn:=n+length(a[i]);
      m:=i-1;
    end;  
    n:=length(a[i]);    
  end;
  writeln('количество букв: ',mn);  
  writeln('слова:  ',a[m],' ',a[m+1]);
end.

предложение: кот пришел домой в три часа ночи
количество букв: 4
слова:  в три