Сформировать матрицу 10*10 из ответов на таблицу умножения, и при вводе числа от 1 до 100 выдать сколько раз оно повторяется — Pascal(Паскаль)

uses crt;
const n=10;
var t:array[1..n,1..n] of byte;
    i,j,k,c:byte;
begin
clrscr;
writeln('Таблица умножения:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    t[i,j]:=i*j;
    write(t[i,j]:4);
   end;
   writeln;
  end;
writeln;
repeat
write(' k [1..100] k=');
readln(k);
until k in [1..100];
c:=0;
for i:=1 to n do
for j:=1 to n do
if t[i,j]=k then c:=c+1;
write('Число ',k,' встречается ',c,' рз.');
readln
end.