Помогите решить задачу на Delphi

[GRYZZY]

Дана целочисленная матрица Q размера nxn и целочисленная матрица P размера mxm, причём 1<m<n. написать программу для подсчёта количества вхождений матрицы P в матрицу Q в качестве подматрицы.

[Аватар]

  Count:=0;
  for i1:=1 to n-m+1 do
    for j1:=1 to n-m+1 do begin
      Equ:=True;
      for i:=1 to m do
        for j:=1 to m do
          if q[i1+i-1,j1+j-1]<>p[i,j] then begin Equ:=False; Break; end;
      if Equ then Inc(Count);
    end;

[GRYZZY]

А можно, пожалуйста, весь код?

[Аватар]

А это и есть почти весь код, описание переменных, ввод массивов и вывод результтата сам постарайся, на форуме полно примеров. Ну и код чуть подправить, бряк один забыл. Хотя и без него работало бы, но чуть помедленней

Count:=0;
  for i1:=1 to n-m+1 do
    for j1:=1 to n-m+1 do begin
      Equ:=True;
      for i:=1 to m do begin
        for j:=1 to m do
          if q[i1+i-1,j1+j-1]<>p[i,j] then begin Equ:=False; Break; end;
        if Equ then Break;
      end;
      if Equ then Inc(Count);
    end;

[GRYZZY]

спасибо и на этом)