помогите по программированию решить задачу. в строке определить самое короткое слово и удалить кратные длине

примени эту программу к своей
{ длинна последнего слова в предложении}
program str1;
uses crt;
var
i,k:integer;
s:string;
begin
clrscr;
write('Введите предложение не меньше чем из 2-х слов (--> '); readln(s);
k:=0;
for i:=length(s) downto 1 do
begin k:=k+1; if (S =' ')then begin
writeln('длина последнего слова = ',k-1,' букв'); exit; end;
end;
readln;
end.