Pascal - Mehrdimensionaler Array - Gasteliste

program doublearray (Input, output);

CONST
MAXGASTE = 3;

type
tVorname = array[1..MAXGASTE] of String;
tNachname = array[1..MAXGASTE] of string;

var
vorname : tVorname;
nachname : tNachname;

gasteliste : array[1..MAXGASTE,1..MAXGASTE] of String;

x, y : Integer;

begin

for x := 1 to MAXGASTE do
begin
	write ('Geben Sie den Vornamen ein: ');
	readln (vorname[x]);
	write ('Geben Sie den Nachnamen ein: ');
	readln (nachname[x])
end;

for x := 1 to MAXGASTE do
	for y := 1 to 3 do
	  gasteliste[x,y] := vorname[x] + nachname[y];

for x := 1 to MAXGASTE do
	for y := 1 to 3 do
		writeln (gasteliste[x,y]);





end.