Data update

Task/Odd-word-problem/PascalABC.NET/odd-word-problem.pas

@@ -0,0 +1,33 @@
+var
+  alpha := ('a'..'z') + ('A'..'Z');
+
+procedure reverseWord(var ch: char);
+begin
+  var nextch := readChar();
+  if nextch in alpha then reverseWord(nextch);
+  write(ch);
+  ch := nextch;
+end;
+
+procedure normalWord(var ch: char);
+begin
+  write(ch);
+  ch := readChar();
+  if ch in alpha then normalWord(ch);
+end;
+
+begin
+  var ch := readChar();
+
+  while ch <> '.' do
+  begin
+    normalWord(ch);
+    if ch <> '.' then
+    begin
+      write(ch);
+      ch := readChar();
+      reverseWord(ch);
+    end;
+  end;
+  write(ch)
+end.