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

program aaa;vara,i:longint;s:string;beginread(s);a:=0;for i:=1 to length(s) do  if s[i]=' ' then a:=i; //находим последний пробелdelete(s,a,length(s)-a+1); //удаляем из строки последнее словоwriteln(s)end.