Указать номер строки, максимально удалённой от первой строки матрицы - Pascal

for i:=2 to m do//все строки с 2 по последнюю
 begin
  s:=0;//найдем сумму произведений элементов этой строки на элементы первой строки
  for j:=1 to n do
  s:=s+abs(a[1,j])*abs(a[i,j]);
  if i=2 then//сначала макс. в строке 2
   begin
    max:=s;
    imax:=i;
   end
  else if s>max then//если где-то больше
   begin
    max:=s;
    imax:=i;//то эта строка макс.
   end;
 end;