Длина пятого и длина последнего слова в строке - Pascal ABC

var s:string;
    i,n,k,d:byte;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
write('Введите номер слова n=');
readln(n);
k:=0;
d:=0;
for i:=1 to length(s) do
if s[i]<>' ' then d:=d+1
else if(s[i]=' ')or(i=length(s)) then
 begin
  k:=k+1;
  if k=n then writeln('Длина ',n,' слова=',d);
  d:=0;
 end;
if k<n then writeln('В строке нет ',n,' слов');
writeln('Длина последнего слова=',d);
end.