проверка ввода матрицы Опции

[-Екатерина-]

хочу сделать вот так, но программа не запускается:

constructor matrix.input;
var i,j:integer;
begin
        writeln('*****VVOD MATRICI*****');
	repeat
		writeln('m= ');
		{$i-}
		readln(m);
		{$i+}
		err := (ioresult <> 0);
    		if err then writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Povtorite vvod');
  	until not err;

	repeat
		writeln('n= ');
		{$i-}
		readln(n);
		{$i+}
		err := (ioresult <> 0);
    		if err then writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Povtorite vvod');
  	until not err;
	getmem(ar,n*m*sizeof(te));
	writeln ('Vvedite elementi po strokam');
	for i:=1 to m do
  	 for j:=1 to n do
	   begin
		{$i-} read (ar^[i,j]); {$i+}
		err := (ioresult <> 0);
    		if err 
		then begin
			writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Vixod iz programmi');
			readln;
			halt;
		     end;
	writeln;
end;

в чем проблема?? и где ошибка??

Добавлено через 10 мин.
это программа в консольном приложении