Работа с матрицей (дописать код) (не могу вывести) - Pascal ABC

Формулировка задачи:

Задание : Дана символьная матрица. Расстоянием между двумя строками назовем количество позиций, в которых различаются эти строки. Для каждой строки вычислить расстояние от нее до первой. Не могу вычислить расстояние,т.к не могу понять за что хвататься. По идее можно сделать отсчет от последний строки до самой первой с уменьшением на 1 (в с++ было бы так --i),но на паскале не могу понять как сделать. Если мой код очень плохой или вам не удобен - то напишите свой(желательно с объяснением расчета расстояния)
CONST
 kol_strok=10;/// (если поставить 5,то по идее костыль заработает)
 kol_stolbcov=4;
VAR
matrix:array[1..kol_strok,1..kol_stolbcov] of char;
kol_s:array[1..kol_strok] of integer;
 b2,b1,b,i,j:integer;
BEGIN
  Randomize;
 for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do
   matrix[i,j]:=Char(Random(42)+48);
 
 Writeln('Матрица А:');
 for i:=1 to kol_strok do
  begin
   for j:=1 to kol_stolbcov do
    Write(matrix[i,j],' ');
   Writeln;
  end;
 Readln;
{Пытаемся вычислить расстояние}
 Writeln('Расстояние S');
for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do
  begin
 b:=kol_strok-2; // попытался зацепиться за постоянное значение(т.е вычисление)
end;
 Writeln('Расстояние между Поледней строчкой и первой,составляет ',b,' строки'); 
 Writeln('Расстояние между предпоследней и первой, составляет ',(b-1),' Строки');
 Writeln('Расстояние между 1 b 2 =',1);
 Readln;
 
END.

Код к задаче: «Работа с матрицей (дописать код) (не могу вывести) - Pascal ABC»

textual
const kol_strok=10;
      kol_stolbcov=4;
var matrix:array[1..kol_strok,1..kol_stolbcov] of char;
    i,j:integer;
begin
randomize;
Writeln('Матрица А:');
for i:=1 to kol_strok do
 begin
  for j:=1 to kol_stolbcov do
   begin
    matrix[i,j]:=Char(Random(42)+48);
    write(matrix[i,j],' ');
   end;
  writeln;
 end;
{Пытаемся вычислить расстояние}
writeln('Расстояние S');
for i:=1 to kol_strok do
Writeln('Расстояние между ',i,' строчкой и первой составляет ',i-1);
end.

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ