ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль

Vars,s1,s2: string; l,l1: char; i,x,x1: integer; beginreadln (s); for I: =2 to length (s) -1 do beginl: =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]='.') dos1: =copy (s1,2,length (s) -1); writeln (s1); end.