Задача на строки найти самое короткое слово - Turbo Pascal

Формулировка задачи:

Подскажите как решить эту задачу на паскале с помощью строк. 1.Дан текст, слова в котором разделены хотя бы одним пробелом. Найти самое короткое слово в тексте.

Решение задачи: «Задача на строки найти самое короткое слово»

Листинг программы

program z10_4;
uses crt;
var x,z,z1,z2,y:real;
i,n:integer;
begin
clrscr;
x:=-2;n:=1;
while x<=3.5 do
begin
y:=x/(2*n);
z:=x/2;
for n:=2 to 8 do
z1:=z+y*x;
z1:=z1*(x/2);
n:=1;
y:=sqr(x)/(4*n);
z2:=0;
for n:=1 to 6 do
z2:=z2+y*sqr(x);
z2:=z2*(sqr(x)+1)/3;
z:=z1+z2;
writeln('z(',x:2:2,')=',z:2:2);
x:=x+0.5;
end;
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет переменные: x, z, z1, z2, y - все они типа real.
Задает начальное значение для x, равное -2.
Задает начальное значение для n, равное 1.
Включает экран с помощью функции clrscr.
Запускает цикл while, который выполняется, пока значение x не станет больше или равно 3.5.
Внутри цикла вычисляет значение y как x деленное на 2n.
Вычисляет значение z как x деленное на 2.
Использует цикл for для суммирования z1, z2 и z.
Выводит результат для каждой точки x.
Увеличивает значение x на 0.5.
Выходит из цикла while. В общем, этот код находит наименьшее слово, которое является суммой трех других слов, каждое из которых является квадратом числа, деленного на 2n.