Множества, проверьте задачу, Пусть задана целочисленная квадратная матрица размерности n. Элементы Опции

[Вася]

{Пусть задана целочисленная квадратная матрица размерности n. Элементы матрицы
находятся в диапазоне от 1 до 100. Напечатайте все цифры из заданого диапазона,
которых нет ни в одной из строк заданой матрицы.}
program s142n10pr;

{$APPTYPE CONSOLE}

uses
SysUtils,
windows;

const n = 3; // размерность
type
Tmatr = array [1..n, 1..n] of integer; // тип матрица
Tmn = set of 1..100;
var matrix: Tmatr; // матрица
numbers: Tmn;
// процедура ввода матрицы
procedure ReadMatr (var M : TMatr);
var i, j : integer;
begin
writeln ('введите матрицу:');
for i:=1 to n do
for j:=1 to n do
read (M[i,j]);
readln;
end;
// процедура ввода множества состоящего из чисел от 1 до 100 и "вычёркивания"
// из него чисел встечающихся в матрице
procedure read_mn (var numbers: Tmn; var matrix: Tmatr);
var i, j: integer;
begin
numbers:=[1..100];
for i:=1 to n do
for j:=1 to n do
numbers:=numbers-[matrix[i,j]];
end;
procedure print (numbers: Tmn);
var k: integer;
begin
for k:=1 to 100 do
if (k in numbers)
then write(k,' ');
end;
var i, j, k: integer;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
Readmatr (matrix);
read_mn (numbers, matrix);
print (numbers);
readln;
end.

[мисс_граффити]

Отредактируй сообщение: код необходимо заключать в специальные теги.