Ограничения на ввод,Паскаль

[lialia]

Подскажите пожалуйста,как сделать ограничение на ввод с помощью директив,вот мой код:

uses crt;
const pa = 100;
Var
  a,b: array[1..pa,1..pa] of integer;
  i,j,n,m: integer;
Begin
  clrscr;
  write('Razmernost massiva: ');
  readln(n);
  write(' Najmite 1 dlia vvoda matricu polzovatelem.Esli net,budet proishodit avtomaticheski ');
  readln(m);
  if m=1 then
   begin
   for i:=1 to n do
    for j:=1 to n do
     begin
     write('Vvedite elementu massiva : ');
     readln(a[i,j]);
     end;
    writeln('Ishodnui massiv: ');
    for i:=1 to n do
     begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
    end
   else
    begin
    randomize;
    writeln('Ishodnui massiv: ');
    for i:=1 to n do
     begin
     for j:=1 to n do
      begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      end;
      writeln;
     end;
     writeln;
    end;
  writeln('Poluchennui massiv: ');
   begin
   for i:=1 to n do
    for j:=1 to n do
    b[i,j]:=a[n-j+1,i]; 
     for i:=1 to n do
      begin
      for j:=1 to n do
       begin
       write(b[i,j]:4);
       end;
       writeln;
      end;
      writeln;
   end;
  readln;
End.

[Poma][a]

Подскажите пожалуйста,как сделать ограничение на ввод с помощью директив,вот мой код:

А можно чуть по конкретней?? Ограничение чего? С помощью каких директив?

[lialia]

Чтобы ,если пользователь вводит число больше 100 программа не вылетала,если можно без директив,подскажите пжлст

[Poma][a]

write('Razmernost massiva: ');
  readln(n);

Например так :

repeat 
     ReadLn (n);
until n<=100

[lialia]

спасибо,вы меня выручили