Даны 2 матрицы, проверить есть ли одинаковые столбцы,если есть то посчитать их сумму.

 writeln('Введите матрицу ',c,' по столбцам:'); что такое С {Название матрицы}
 clrscr; что означает ета операция {происходит очистка экрана}
 write(a[j][i]:4); почему здесь 4,ичто ето значит{каждый элемент выводится через 4 знака }
 function Ravn(a,b:mas):boolean; что такое a,b {a,b столбцы матрицы которые сравнюются }
 while (i<=m)and f do
 if b[i]<>a[i] then f:=false
 else i:=i+1;
 Ravn:=f; что мы здесь находим {функция которая сравнивает столбцы и возращает логической переменной true в случае идентичности либо  false в противном случае}

uses crt;
 const nmax=10; //ограничим макс. размер матриц
 //для удобства объявим матрицу так
 type mas=array[1..nmax] of integer;//массив=столбец матрицы
 matr=array[1..nmax] of mas; //матрица=мвссив столбцов
 var m,n:byte ; //размеры матриц - глобальные переменные
 procedure Vvod(var a:matr;c:char);//ввод элементов матриц
 var i,j:byte;
 begin
 writeln('Введите матрицу ',c,' по столбцам:');
 for j:=1 to n do
 begin
 writeln('Столбец ',j);
 for i:=1 to m do 
 begin
 write('el[',i,']=');{имена элементов}
 readln(a[j][i]);{заполняем матрицу по столбцам вручную}
 end;
 end;
 clrscr;
 end;
 procedure Vyvod(var a:matr;c:char); //вывод матриц на экран
 var i,j:byte;
 begin
 writeln('Матрица ',c);
 for i:=1 to m do
 begin
 for j:=1 to n do
 write(a[j][i]:4);//выводим транспонированно, по строкам(в обычном виде)
 writeln;
 end;
 writeln;
 end;
 function Ravn(a,b:mas):boolean; //определение идентичности массивов-столбцов
 var i,j:byte;
 f:boolean;
 begin
 f:=true;{установлюем по умолчанию в тру}
 i:=1;
 while (i<=m)and f do {пока i меньше количества строк и переменная f=true} 
 if b[i]<>a[i] then f:=false {если не ровны то переменной f=false  виходим с цикла иначе проверяем дальше}
 else i:=i+1;
 Ravn:=f; {возращаем значение ровны или не ровны столбцы true or false}
 end;
 var a,b:matr;
 i,j,ka,kb:byte;
 s:integer;
 begin
 repeat
 write('Количество строк до ',nmax,' m=');
 readln(m);
 until m in [1..nmax];
 repeat
 write('Количество столбцов до ',nmax,' n=');
 readln(n);
 until n in [1..nmax];
{више вводим количество строк и столбцов с проверкой чтобы не выскочить за пределы массивов}
 Vvod(a,'A');{тут все понятно:)}
 Vvod(b,'B');
 Vyvod(a,'A');
 Vyvod(b,'B');
 i:=1; //ищем одинаковые столбцы
 ka:=0;kb:=0;
 while(i<=n) and (ka=0) do {ЗДЕСЬ В ДВУХ ЦиКЛАХ ПРИ ПОМОЩИ ФУНКЦИИ ИЩЕМ СТОЛБЦЫ как одномерные массивы }
 begin
 j:=1;
 while(j<=n) and (ka=0) do
 if Ravn(a[i],b[j]) then {если равнЫ запоминаем их номера}
 begin
 ka:=i; //их номера в матрицах
 kb:=j;
 end
 else j:=j+1;{иначе переходим на следущий столбец}
 if ka=0 then i:=i+1;
 end;
 if ka=0 then write('Одинаковых столбцов нет')
 else
 begin
 writeln('Одинаковые столбцы №',ka,' в матрице А и №',kb,' в матрице В');
 s:=0;
 for i:=1 to m do{Сумма в этих столбцах}
 s:=s+a[ka][i];
 writeln('Сумма в каждом из них=',s);
 end;
 end.