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

а downto это что?

если цикл идёт от большего числа к меньшему, то используется downto

а без него никак?

у меня таким способом создаётся ещё одна строка в которой всё символы стоят задом наперёд, для того что бы высчитать на каком месте стоит последний пробел(в новой строке он будет на первом месте), потом все не нужные слова удаляются остаются только первое и последнее слово, и считаем длину первого и последнего

пробел будет не на первом месте, а первый пробел после символов, узнаем его позицию => узнаем и позицию последнего пробела в первой строке

var s,t:string;i,p,z,m,n,l:integer;beginreadln (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.