delphi array in procedure code example

Example: delphi array

const
   Days : array[1..7] of string = ('Mon','Tue','Wed','Thu','Fri','Sat','Sun');
 var
   i : Integer;
 begin
   for i := 1 to 5 do      // Show the weekdays
     ShowMessageFmt('Day %d = %s',[i,Days[i]]);
 end;