Найти номер первого столбца таблицы, для которого скалярное произведение на заданный вектор минимально

uses crt;
const nmax=15;
type vec=array[1..nmax] of integer;
     mtr=array[1..nmax,1..nmax] of integer;
function Scal(a:mtr;m,k:integer;b:vec):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to m do
s:=s+a[i,k]*b[i];
Scal:=s;
end;
var a:mtr;
    b:vec;
    m,n,i,j,j1,mn:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Заданный вектор:');
for i:=1 to m do
 begin
  b[i]:=1+random(20);
  write(b[i]:4);
 end;
mn:=Scal(a,m,1,b);
j1:=1;
for j:=2 to n do
if Scal(a,m,j,b)<mn then
 begin
  mn:=Scal(a,m,j,b);
  j1:=j;
 end;
writeln;
write('Номер первого столбца, чье скалярное произведение на вектор В минимально=',j1)
end.

program tablica;
uses crt;
const m_max=100;
         n_max=100;
type TTab=[1..m_max,1..n_max] of TReal;
       TReal=single;
       TInt=integer;
var a:TTab;
     i,j,m,n:TInt;
     t:TReal;
     key:byte;
     ok1,ok2,ok3,ok5:boolean;
begin
ok1:=false; ok2:=false; ok5:=false;
repeat
clrscr;
       writeln('1.Задать размеры таблицы');
       writeln('2.Задать элементы таблицы случайно');
       writeln('Задать элементы таблицы с клавиатуры');
       writeln('4.Показать таблицу');
       writeln('5.Выполнить таблицу');
       writeln('6.Показать результат');
       writeln('7.Выход');
       readln(key);
case key of
1:begin 
writeln('Введите m');
readln(m);
writeln('Введите n');
readln(n);
ok1:=true;
end;
2:begin 
if ok1 then begin
randomize;
for i:=1 to m do
for j:=1 to n do
begin
t:=random(100);
t:=t-50;
t:=t/10;
t[i,j]:=t;
end;
else wtiteln('На заданном размере');
readln;
ok2:=true;
end;
end;
3.begin