array entri data program pascal

USES WINCRT;

VAR
NAME :ARRAY[1..100] OF STRING[25];
AGE :ARRAY[1..100] OF STRING[25];
JOB :ARRAY[1..100] OF STRING[25];
ADDRES:ARRAY[1..100] OF STRING[25];
I,JD :INTEGER;


BEGIN
WRITE('HOW MUST DATA YOU WANT : ');READLN(JD);
FOR I := 1 TO JD DO
BEGIN
WRITE('NAME : ');READLN(NAME[I]);
WRITE('AGE : ');READLN(AGE[I]);
WRITE('JOB : ');READLN(JOB[I]);
WRITE('ADDRES : ');READLN(ADDRES[I]);
END;

WRITELN('DATA MEMBER TEATER CLUB');
WRITELN('=============================================');
WRITELN('NO NAME AGE JOB ADDRES ');
FOR I:= 1 TO JD DO
BEGIN
WRITELN(I:2,NAME[I]:7,AGE[I]:10,JOB[I]:7,ADDRES[I]:15 );
END;
WRITELN('=============================================');


END.