Вывести в обратном порядке последнее слово строки. Подсчитать количество букв в нем.

спасибо, выручил!

на Паскаль (для Delphi и Lazarus, надо подкорректировать для PascalABC):const  V=255;type L= array [1..V] of char;var  S: string;  A: L;  f,i: integer;begin  read(S);  f:=0;  for i:=1 to Length(S) do  begin    if S[i]<>' ' then begin f:=f+1; A[f]:=S[i] end    else f:=0;  end;  for i:=f downto 1 do write(A[i]);  writeln(' ',f);  readln;  readlnend.