program studarray;
uses crt;

{--------------------------------------------------------------------------

This program will read 30 different names into 1 varaible, then print the names.

                        by 

--------------------------------------------------------------------------}

type student_array = array[1..30] of string[30];

VAR  names : student_array;
x:integer;

procedure getnames;
begin
for x := 1 to 30 do begin
write ('name #',x,' - ');
readln (names[x]);
end;
end;


procedure printnames;
var y : integer;
begin
clrscr;

for x := 1 to 30 do begin
writeln ('Student number ',x,' is ',names[x]);
y := y + 1;
if y = 20 then begin
writeln;
writeln;
writeln;
textcolor (red);
write ('  -- Press any key for more --');
readkey;
writeln;
writeln;
end;
end;
end;


begin

clrscr;
getnames;
printnames;
readkey;

end.