В заданной символьной строке, которая заканчивается точкой, определить длину самого короткого и самого длинного слов — Pascal(Паскаль)

var
  Text: string;
  min, max, p: integer;
  change: boolean;
begin
  // Наше предложение
  Text := 'Строка с текстом.';

  // Заменяем последнюю точку на пробел
  text[Length(text)] := ' ';
  
  min := length(text);
  max := 0;

  {
    Находим все слова (пробелы)
  }
  while Pos(' ', Text) <> 0 do
  begin
    p := Pos(' ', Text) -1;
    if p < min then
       min := p;
    if p > max then
      max := p;
    Delete(Text, 1, p+1);
  end;
  
  WriteLn('Минимальное: ',min);
  WriteLn('Максимальное: ',max);
end.