Впаскале abc в строке сравнить длину первого слова и последнего слова

Var s,t:string;
i,p,z,m,n,l:integer;
begin
readln (s);
p:=length(s);
for i:=p downto 1 do t:=t+s[i];
z:=pos(' ', t);
m:=pos(' ',s);
z:=p-z-m+1;
delete (s, m, z);
p:=length(s);
m:=pos(' ',s);
n:=m-1;
l:=p-1-n;
WRITELN;
writeln('Длина первого слова = ',n);
writeln('Длина второго слова = ',l);
end.