ПОМОГИТЕ С Программкой. Язык паскаль. Дана строчка, состоящая из российских слов, разделенных

вот обычная и легкая программка, так как теснее запостить нельзя, то выкладываю в комментах, держи на здоровье: var s: string; i: integer;begin readln(s); while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s,Length(s),1); while Pos(' ',s)>0 do Delete(s,Pos(' ',s),1); for i:=1 to length(s) do if s[i]=' ' then s[i]:='.'; writeln(s)end.

нет,все равно не так

пишет строку просто без пробелов

не может быть, а что у вас за паскаль таковой?

abc

http://znanija.com/task/3931165 помогите плииз еще с этой

ты на делфи пишешь, может?:3

я пишу на fpc, только оказалось, что после копирования решения, html съел один пробел в кавычках, потому там необходимо два пробела

вот и весь прикол, а программа была ощибочна, желая согласен, программка сама по себе обычная.

она была ложной, но стоит добавить один пробел в коде - она работает )

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 (x1lt;gt;32) then s1:=s1+'.' else if xlt;gt;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.