Pascal problems

	uses
		sysutils,

	var

		arrWeek1: array[1..5, 1..6] of integer;
		arrDay: array[1..5] of string =('Monday','Tuesday','Wednesday','Thursday','Friday');
		loop1: integer;
		loop2: integer;


Begin

	for loop1:= 1 to 5 do
			for loop2:= 1 to 6 do
					writeln('Enter data for ' + (arrDay[loop1]) + ' of week 1 for bus ' + inttostr(arrWeek1[loop1] [loop2]));
						readln(arrWeek1[loop1] [loop2]);







end.