Wrong Number of parametrs - Free Pascal

program laba10;
uses crt;
type Matrix=array[1..10,1..10] of real;
     Strk=array[1..10] of real;
var  A,B:Matrix;
     I,J:longint;
     opr:real;
     N,Col,S,L:integer;
     Vub:byte;
 
procedure Vyvod(M:Matrix; N:integer);
var I,J:integer;
begin
for L:=1 to N do
  Write('      ',L,'. ');
  Writeln;
for I:=1 to N do
begin
  Write(I,'.  ');
  for j:=1 to N do
    write(M[I,J]:7:1,' ');
    writeln;
  end;
end;
 
procedure dop(A:Matrix; var B:Matrix; M,I,J:integer);
  var ki,kj,di,dj:integer;
  begin
    di:=0;
    for ki:=1 to m-1 do
    begin
      if (ki=i) then di:=1;
      dj:=0;
      for kj:=1 to m-1 do
      begin
        if (kj=j) then dj:=1;
        b[ki,kj]:=a[ki+di,kj+dj];
      end;
    end;
  end;
 
function opred(A:Matrix; N:integer):real;
var I,J,St:longint;
    det,K:real;
    B:Matrix;
begin
  det:=0;
  St:=col;
  if N=1 then det:=A[1,1]
    else if N=2
      then det:=A[1,1]*A[2,2]-A[2,1]*A[1,2]
        else
  for i:=1 to n do
  begin
    if (i+st) mod 2=0 then k:=A[I,St]
      else k:=-A[I,St];
        dop(A,B,N,I,St);
        det:=det+K*opred(B,N-1);
  end;
opred:=det;
end;
 
function Ymnogaem(S:Strk; k:real):Strk;         {a[i]:=k*a[i]}
var I:byte;
begin
  for I:=1 to N do
    S[I]:=K*S[I];
    Ymnogaem:=S;
end;
 
function Vichitaem(S1:Strk; S2:Strk):Strk;
var I:byte;
begin
  for I:=1 to N do
    S1[i]:=S1[I]-S2[I];
    Vichitaem:=S1;
end;
 
function G(A:Matrix):real;
var I,J:integer;
    S:Strk;
    R:real;
begin
for j:=1 to N-1 do
  for i:=j+1 to n do
    if (a[j,j]=0) then
     begin
       S:=A[I];
       A[I]:=A[J];
       A[J]:=Ymnogaem(S,(-1));
     end
    else
      if not (A[I,J]=0) then
        A[i]:=Vichitaem(A[I],Ymnogaem(A[J],A[I,J]/A[J,J]));
Vyvod(A,N);
R:=1;
for I:=1 to N do
  R:=R*A[I,I];
  G:=R;
end;
 
 
begin
clrscr;
  writeln('Write matrix size:');
  readln(N);
  writeln('Write number of column: ');
  readln(Col);
  Writeln('Type of enter');
     Write('1-your choise:  ');
     Write(', 2-random: ');
     Write(', 3-natural numbers: ');
     Writeln;
  readln(Vub);
  case Vub of
    1:begin
      for i:=1 to n do
        for j:=1 to n do
        read(A[I,J]);
      end;
    2:begin
      randomize;
      for i:=1 to n do
        for j:=1 to n do
        A[i,j]:=1*random(10)-5;
      end;
    3:begin
      s:=0;
      for i:=1 to n do
        for j:=1 to n do begin
          inc(s);
         A[i,j]:=s;
        end;
      end;
  end;
  Vyvod(A,N);
  opr:=opred(A,N);
  writeln('Opredelitelb = ', opr:3:1);
  Writeln('<br>');
  writeln(G(A):3:1);
  Readln();
end.