Перевести программу с Паскаля на Бейсик

uses crt;
const m=10;n=10;
var   i,j,ind:integer;
      a:array[1..m,1..n] of integer;
      b:array[1..100] of integer;
 
function Exist(x:integer):boolean;
var i,j:integer;
    ex,flag:boolean;
begin
ex:=true;{ex - элемент есть во всех строках}
exist:=false;{exist - элемент нужно добавить}
 for i:=1 to m do
 begin
  flag:=false;{flag - элемент есть в строке}
  for j:=1 to n do
   if x=a[i,j] then flag:=true;
 if not flag then ex:=false;{элемента нет в строке}
 end;
flag:=true;
if ex then{если есть во всех строках}
 begin
  if ind=0 then begin{если первый элемент в выходном массиве}
                 inc(ind);
                 Exist:=true;
                end
    else
   begin
      for i:=1 to ind do
       if x=b[i] then flag:=false;{если в выходном массиве нет еще такого элемента}
   if flag then begin
                  inc(ind);
                  exist:=true;
                end;
   end;
  end;
 
end;
 
procedure Init;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
 begin
 a[i,j]:=random(3);
 write(a[i,j],' ');
 end;
writeln;
end;
end;
 
begin
clrscr;
randomize;
ind:=0;
Init;{инициализируем матрицу рандомом}
for i:=1 to m do
 for j:=1 to n do
  if Exist(a[i,j]) then b[ind]:=a[i,j];
writeln;
for i:=1 to ind do
 write(b[i],' ');
end.