1 files changed, 46 insertions, 0 deletions
diff --git a/challenge-207/deadmarshal/pascal/ch1.pas b/challenge-207/deadmarshal/pascal/ch1.pas
new file mode 100644
index 0000000000..843d231a23
--- /dev/null
+++ b/challenge-207/deadmarshal/pascal/ch1.pas
@@ -0,0 +1,46 @@
+program Ch1;
+
+{$mode objfpc}
+
+uses
+  SysUtils,StrUtils,Types,GVector;
+
+type
+  TVec = specialize TVector<AnsiString>;
+
+var
+  I:Integer;
+  A1:TStringDynArray = ('Hello','Alaska','Dad','Peace');
+  A2:TStringDynArray = ('ONG','Bye');
+  Res1,Res2:TVec;
+  
+function AllMatch(Needle,Haystack:AnsiString):Boolean;
+var
+  I:Integer;
+begin
+  for I := Low(Needle) to High(Needle) do
+    if FindPart(Needle[I],Haystack) = 0 then Exit(False);
+  Exit(True);
+end;
+
+function KeyboardWord(var Arr:TStringDynArray):TVec;
+var
+  I,J:Integer;
+  Qwerty:TStringDynArray = ('qwertyuiop','asdfghjkl','zxcvbnm');
+begin
+  Result := TVec.Create;
+  for I := Low(Arr) to High(Arr) do Arr[I] := LowerCase(Arr[I]);
+  for I := Low(Qwerty) to High(Qwerty) do
+    for J := Low(Arr) to High(Arr) do
+      if AllMatch(Arr[J],Qwerty[I]) then Result.PushBack(Arr[J]);
+end;
+
+begin
+  Res1 := KeyboardWord(A1);
+  Res2 := KeyboardWord(A2);
+  for I := 0 to Pred(Res1.Size) do Write(Res1[I],' '); WriteLn;
+  for I := 0 to Pred(Res2.Size) do Write(Res2[I],' '); WriteLn;
+  FreeAndNil(Res1);
+  FreeAndNil(Res2);
+end.
+