Nasobenie matic v Pascale (Potrebujem opravit chybu v prg)

program Sucin_matic;

uses crt;

Type pole=array[1..10,1..10] of integer;

var
A,B,D : pole;
I,J,M,N,K,L : integer;

procedure CITAJ (var A : pole);
begin
  for I:= 1 to M do
  for J:= 1 to N do
   begin
    Writeln('Zadaj ',J,' prvok v ',I,' riadku ');
    Readln(A[I,J]);
   end;
end;
procedure CITAJ2 (var B : pole);
begin
  for I:= 1 to K do
  for J:= 1 to L do
   begin
    Writeln('Zadaj ',J,' prvok v ',I,' riadku ');
    Readln(B[I,J]);
   end;
end;

procedure VYPIS (A : pole);
begin
  for I:= 1 to M do begin
  for J:= 1 to N do begin
   Write(A[I,J]:4);
   end;
  Writeln;
end;
end;
procedure VYPIS2 (B: pole);
begin
  for I:= 1 to K do begin
  for J:= 1 to L do begin
   Write(B[I,J]:4);
    end;
   writeln;
  end;
  end;

procedure SUCIN (D : pole);
begin
  for I:=1 to M and K do begin
  for J:=1 to N and L do begin
   D[I,J]:=(A[I,J])*(B[J,I]);
   write (D[I,J]:4);
end;
writeln;
end;
end;

begin
clrscr;
  Writeln('Zadaj pocet riadkov v 1. matici ');
  Readln(M);
  Writeln('Zadaj pocet stlpcov v 1. matici ');
  Readln(N);
  Writeln('Zadaj pocet riadkov v 2. matici ');
  Readln(K);
  Writeln('Zadaj pocet stlpcov v 2. matici ');
  Readln(L);
if N<>K then writeln ('Matica sa neda vypocitat ') else
  Writeln('Zadaj prvky I. matice ');
  CITAJ(A);
  Writeln('Zadaj prvky II. matice ');
  CITAJ2(B);
readkey;
delay(1000);
clrscr;
  Writeln('I. matica ');
  VYPIS(A);
  Writeln('II. matica ');
  VYPIS2(B);
  Writeln('Sucin I. a II. matice ');
  SUCIN(D);
   readkey;
end.