Something here...
[pascal,N] for i := 0 to high(myArray) do begin
writeln('Hi '+myArray[i]+'!');
end;