Перевод из Pascal в Basic

uses crt;
var f,g:file of integer;
    n,a,b,i,p:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  read(f,b);
  p:=a*b;
  write(g,p);
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.

program slova;
var s,sl:string;
    k,i:integer;
begin write('Vvedite tekst:');
      readln(s);
      write('Vvedite slovo: ');
      readln(sl);
      k:=0;
      while pos(sl,s)>0 do
        begin k:=k+1;
              delete(s,pos(sl,s),length(sl));
        end;
      writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');
end.