помогите решить в QBasic, или перевести с Pascal в QBasic

В матрице А (N,N) найти элементы, встречающиеся более одного раза. Из этих элементов составить и напечатать матрицу Х из двух столбцов. В первом столбце разместить сами значения таких элементов, во втором – количество раз, которое они встретились. Составить и напечатать новую матрицу B(N,N), элементами которой являются числа, указывающие сколько раз встретился элемент, находящийся в этой же позиции в А (N,N).

uses crt;
var a,b:array[1..20,1..20] of integer;
x:array[1..100,1..2]of integer;
n,i,j,k,l,t:byte;
f:text;
begin
clrscr;
assign(f,'rezultat.txt');
rewrite(f);
randomize;
write('Vvedite razmer matricy n=');
readln(n);
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Ishodnaya matrica A:');
writeln(f,'Ishodnaya matrica A:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
write(f,a[i,j]:3);
end;
writeln;
writeln(f,'');
end;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
for l:=1 to n do
if a[i,j]=a[k,l] then
b[i,j]:=b[i,j]+1;
writeln('Matrica B:');
writeln(f,'Matrica B:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(b[i,j]:3);
write(f,b[i,j]:3);
end;
writeln;
writeln(f,'');
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if b[i,j]>1 then
begin
inc(k);
x[k,1]:=a[i,j];
x[k,2]:=b[i,j];
end;
writeln('Matrica X1:');
writeln(f,'Matrica X1:');
for i:=1 to k do
begin
for j:=1 to 2 do
begin
write(x[i,j]:3);
write(f,x[i,j]:3);
end;
writeln;
writeln(f,'');
end;
i:=1;l:=k;
while i<=k do
begin
j:=i+1;
while j<=l do
begin
if x[j,1]=x[i,1] then
begin
for t:=j to l-1 do
begin
x[t,1]:=x[t+1,1];
x[t,2]:=x[t+1,2];
end;
l:=l-1;
end
else j:=j+1;
end;
i:=i+1;
end;
writeln('Matrica X:');
writeln(f,'Matrica X:');
for i:=1 to l do
begin
for j:=1 to 2 do
begin
write(x[i,j]:3);
write(f,x[i,j]:3);
end;
writeln;
writeln(f,'');
end;
close(f);
readln
end.