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

Var s: string; word: boolean; i,delete_pos: integer; beginread (s); word: =false; for i: =length (s) downto 1 do begin if (s[i]<>') then word: =true; if (s[i]=') and word then begin delete_pos: =i; break; end; end; delete (s,delete_pos,length (s) -i+1); writeln (s); end.