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.