Ограничение на ввод

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 ');
  {$I-}
  readln(m);
  {$I+}
  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 if (IOResult<>0) or (m<>1) Then
    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.