Считать матрицу из текстового файла, сформировать из нее вектор, отсортировать и изменить его по условиям

type tmatr=array [1..10,1..10] of integer; //тип матрицы куда считываем (думаю 10х10 хватит_
//объявляем переменные
var
matr:tmatr; //матрица куда будем считывать
vect:array [1..100] of integer; //вектор из матрица (раз 10х10 максимальное то размер 100)
n,m:integer; //подсчитываем кол-во строк\столбцов в файле
q:integer; //тут будет размер вектора
 
//для начала напишем процедуру считывания файла в матрицу
 
procedure read_file(place:string); //в нее подаем место хранения файла
var f:text; a:integer; //переменная файла
begin
assign(f,place); //привязываем переменную к файлу
reset(f);        //открываем файл для чтения
n:=0; //в переменную n считаем кол-во строк в файле
while not eof(f) do //пока не конец файла
begin
  n:=n+1; //увеличиваем счетчик строк
  m:=0;  //обнуляем счетчик столбцов
  while not eoln(f) do //пока не конец строки - т.е идем по столбцам
  begin
  m:=m+1; //увеличиваем счетчик столбцов
  read(f,a); //считываем число
  matr[n,m]:=a; //записываем число в матрицу matr
  end;
  readln(f); //переходим на новую строку
end;
close(f); //закрываем файл
end;
 
procedure write_matrix();//процедура вывода матрицы matr на экран
var i,j:integer;
begin
for i:=1 to n do //цикл по строкам
begin
for j:=1 to m do //цикл по столбцам
write(matr[i,j],' '); //выводим значение
writeln; //переход на навую строку
end;
end;
 
procedure make_vector(); //делаем вектор из матрицы
var i,j:integer;
begin
q:=0; //тут считаем кол-во элементов
for i:=1 to n do //цикл по строкам
for j:=1 to m do //цикл по столбцам
begin
q:=q+1; //увеличиваем размер вектора
vect[q]:=matr[i,j]; //записываем число
end;
end;
 
procedure write_vector(); //выписываем вектор на экран
var i:integer;
begin
for i:=1 to q do //по размеру вектора
write(vect[i],' '); //выписываем
writeln;
end;
 
procedure sort_vector(); //сортировка вектора пузырьком
var i,j,tmp:integer;
begin
for i:=q-1 downto 1 do 
    for j:=1 to i do
        if vect[j]>vect[j+1] then
            begin
               tmp:= vect[j];
               vect[j]:= vect[j+1];
               vect[j+1]:= tmp;
            end;
end;
 
procedure delete_dups(); //удаление повторов в векторе
var i,j,k:integer;
begin
i:=1; // встаем на начало
while i<=q do //пока не конец
 begin
  j:=i+1; //берем следующий элемент
  while j<=q do //продвигаемся пока не конец
   begin
    if vect[j]=vect[i] then //если нашли повтор
     begin
      for k:=j to q-1 do //замещаем элементы так чтобы повторный стал последним
      vect[k]:=vect[k+1];
      q:=q-1; //уменьшаем размер массива тем самым убирая последний элемент
      end
     else j:=j+1;
   end;
  i:=i+1;
 end;
end;
 
procedure write_indexes(); //подставляем индексы вектора в начальную матрицу
var i,j,k:integer; r:text;
begin
assign(r,'C:\Result.txt'); //файл с результатом
rewrite(r); //открыаваем для записи
for i:=1 to n do //по матрице
  begin
for j:=1 to m do
    begin
    for k:=1 to q do //по вектору
    if (matr[i,j]=vect[k]) then //если нашли число матрицы в векторе
      begin
      write(r,k,' ');//выписываем порядковый номер
      write(k,' '); 
      end;
    end;
    writeln; //переходим на новую строку
    writeln(r);
    end;
close(r); //закрываем файл
end;
 
BEGIN //головная программа
read_file('C:\1.txt'); //считали матрицу из файла
writeln('Matrix : '); 
write_matrix(); //выписали матрицу matr
 
make_vector(); //получаем вектор из матрицы matr
writeln('Vector : ');
write_vector(); //выписываем вектор
 
delete_dups(); //удаляем дубликаты
writeln('Vector without dublicates : ');
write_vector(); //выписываем вектор
 
sort_vector(); //сортируем вектор
writeln('Sorted Vector : ');
write_vector(); //выписываем вектор
 
writeln('Indexes : ');
write_indexes(); //выписываем индексы
END.

var f:text;
    a:array[1..100,1..100] of integer;
    b:array[1..1000] of integer;
    m,n,k,i,j,p,x:integer;
    s:string;
    t:boolean;
begin
assign(f,'matrix.txt');//файл в папке с программой
reset(f);
//если в файле не указаны размеры матрицы, определим их
m:=0; //количество строк
while not seekeof(f) do
 begin
  readln(f,s);
  inc(m);
 end;
reset(f);
n:=0;//количество столбцов
while not eoln(f) do
 begin
  read(f,x);
  inc(n);
 end;
//читаем матрицу
reset(f);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
close(f);
writeln('Вектор из элементов матрицы по 1 разу');
k:=1;
b[k]:=a[1,1];
for i:=1 to m do
for j:=1 to n do
 begin
  t:=true;
  p:=1;
  while(p<=k)and t do
  if a[i,j]=b[p] then t:=false
  else inc(p);
  if t then
   begin
    inc(k);
    b[k]:=a[i,j];
   end;
 end;
for i:=1 to k do
write(b[i]:4);
writeln;
writeln('Отсортированный вектор');
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]>b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
for i:=1 to k do
write(b[i]:4);
writeln;
writeln('Замена элементов матрицы их номерами в отсортированном массиве');
for i:=1 to m do
for j:=1 to n do
 begin
  t:=false;
  p:=1;
  while(p<=k)and not t do
  if a[i,j]=b[p] then t:=true
  else inc(p);
  if t then a[i,j]:=p;
 end;
writeln('Новая матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
assign(f,'new_matr.txt');
rewrite(f);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(f,a[i,j]:4);
  writeln(f);
 end;
close(f);
end.