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

Program pr;Uses crt;Var s:string;i:integer;BeginWriteln('Введите предложение');readln(s);Writeln;Writeln(s);for i:=1 to length(s) doBeginif (s[i]<>' ')then Write(s[i])else Writeln;end; readkey;end.