Data commit

Task/Menu/Delphi/menu.delphi

@@ -0,0 +1,30 @@
+program Menu;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils;
+
+function ChooseMenu(Options: TArray<string>; Prompt: string): string;
+var
+  index: Integer;
+  value: string;
+begin
+  if Length(Options) = 0 then
+    exit('');
+  repeat
+    writeln;
+    for var i := 0 to length(Options) - 1 do
+      writeln(i + 1, '. ', Options[i]);
+    write(#10, Prompt, ' ');
+    Readln(value);
+    index := StrToIntDef(value, -1);
+  until (index > 0) and (index <= length(Options));
+  Result := Options[index];
+end;
+
+begin
+  writeln('You picked ', ChooseMenu(['fee fie', 'huff and puff', 'mirror mirror',
+    'tick tock'], 'Enter number: '));
+  readln;
+end.