RosettaCodeData/Task/Loops-Foreach/Delphi/loops-foreach.pas

program LoopForEach;

{$APPTYPE CONSOLE}

var
  s: string;
begin
  for s in 'Hello' do
    Writeln(s);
end.