Авс pascal .проверьте правильно или что-то лишнее. как ввести , что m и m1 не могут быть отрицательными (чтоб выводилось в окне ввода )?

Var       i, n: integer;       names: array[1..100] of string;       marks: array[1..100] of byte; begin       write('n =');       readln(n);             for i : = 1 to n do       begin               write('фамилия =');               readln(names[i]);               write('оценка =');               readln(marks[i]);       end;             for i : = 1 to n do               if marks[i] = 2 then                       writeln(names[i]); end.

Const       n = 3;       m = 3; var       i, j: integer;       a, b: array[1..n, 1..m] of integer; begin       for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(20) - 10;                       write(a[i, j]: 3, ' ');               end;               writeln;       end;       writeln;             for i : = 1 to n do       begin               for j : = 1 to m do               begin                       if ((i + j) mod 2 = 1) and (a[i, j] < 0) then                               a[i, j] : = sqr(a[i, j]);                       write(a[i, j]: 4, ' ');               end;               writeln;       end; end.