Data update

Task/Transliterate-English-text-using-the-Greek-alphabet/PascalABC.NET/transliterate-english-text-using-the-greek-alphabet.pas

@@ -0,0 +1,37 @@
+var repl := Dict(
+    ('ch', 'χ'), ('th', 'θ'), ('ps', 'ψ'), ('ph', 'f'), ('Ch', 'Χ'),
+    ('Th', 'Θ'), ('Ps', 'Ψ'), ('Ph', 'F'), ('ee', 'h'), ('ck', 'κ'), ('rh', 'r'), ('kh', 'χ'),
+    ('Kh', 'Χ'), ('oo', 'w'),
+    ($'a', 'α'), ($'b', 'β'), ($'c', 'κ'), ($'d', 'δ'), ($'e', 'ε'),
+    ($'f', 'φ'), ($'g', 'γ'), ($'h', 'η'), ($'i', 'ι'), ($'j', 'ι'), ($'k', 'κ'), ($'l', 'λ'),
+    ($'m', 'μ'), ($'n', 'ν'), ($'o', 'ο'), ($'p', 'π'), ($'q', 'κ'), ($'r', 'ρ'), ($'s', 'σ'),
+    ($'t', 'τ'), ($'u', 'υ'), ($'v', 'β'), ($'w', 'ω'), ($'x', 'ξ'), ($'y', 'υ'), ($'z', 'ζ'),
+    ($'D', 'Δ'), ($'F', 'Φ'), ($'G', 'Γ'), ($'J', 'I'), ($'L', 'Λ'), ($'P', 'Π'), ($'Q', 'Κ'),
+    ($'R', 'Ρ'), ($'S', 'Σ'), ($'Y', 'U'), ($'W', 'Ω'), ($'X', 'Ξ')
+);
+
+var texts := Arr(
+  'The quick brown fox jumped over the lazy dog.',
+
+  '''
+  I was looking at some rhododendrons in my back garden,
+  dressed in my khaki shorts, when the telephone rang.
+
+  As I answered it, I cheerfully glimpsed that the July sun
+  caused a fragment of black pine wax to ooze on the velvet quilt
+  laying in my patio.
+  ''',
+
+  'sphinx of black quartz, judge my vow.'
+);
+
+begin
+  foreach var txt in texts do
+  begin
+    Println(txt); Println('=>');
+    var txt1 := txt;
+    foreach var pair in repl do
+      txt1 := txt1.Replace(pair.Key,pair.Value);
+    Println(txt1 + NewLine);
+  end;
+end.