В приведенной ниже программе организован ввод предложения и вывод…
var a: array [1..20] of string;s: string;i, n, j,k:integer;beginreadln (s); n:=length(s); j:=1;for i:=1 to n doif copy(s,i,1)=' ' then j:=j+1else a[j]:=a[j]+copy(s,i,1);for i:=1 to j do write (a[i]);end.