Вдвоичной матрице размером 10х10 найти строки. матрицу выводить из файла.

// pascalabc.net 3.0, сборка 1064 const   n = 10; var   ms: array[1..n] of string;   t: string;   i, j: integer;   f: text; begin   { чтение матрицы из файла }   assign(f, 'in.txt'); reset(f);   for i : = 1 to n do readln(f, ms[i]);   close(f);   { вывод матрицы на экран }   writeln('*** бинарная матрица ***');   for i : = 1 to n do writeln(ms[i]);   { сортировка обменом (простейшая) }   for i : = 1 to n - 1 do       for j : = 1 to n - 1 do           if ms[j] > ms[j + 1] then           begin t : = ms[j]; ms[j] : = ms[j + 1]; ms[j + 1] : = t end;   { поиск одинаковых строк }   writeln(' строки');   j : = 1; t : = ms[1];   for i : = 2 to n do   begin       if ms[i] = t then inc(j)       else begin           if j > 1 then begin writeln(t); j : = 1 end;           t : = ms[i]       end   end;   if j > 1 then writeln(t) end. контрольное решение: *** бинарная матрица *** 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 0 0 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 строки 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1

Гспд это легко 1 класс +1010   1010 =2020