Question

ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль. 
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом "."(точка). В конце строки точку не ставить.

Answer 1

var
s,s1,s2:string;
l,l1:char;
i,x,x1:integer;
begin
readln(s);
for I:= 2 to length(s)-1 do begin
l:=s[i];l1:=s[i+1];x:=ord(x);x1:=ord(l1);
if (l=' ') and (x1<>32) then s1:=s1+'.' else if x<>32 then s1:=s1+l;
end;
s1:=copy(s,1,1)+s1+copy(s,length(s),1);
while ((s1[1]=' ') or (s1[1]='.')) do
s1:=copy(s1,2,length(s)-1);
writeln(s1);
end.

Answer 2

пишет: ожидание вывода

Answer 3

нет, пишет в одно слово

Answer 4

а,нет,сори. Все работает. Спасибо большое

Answer 5

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