Перевести код Pascal на Java [требует правки]

1    const
2     f='text.txt';
3     g='aaa.txt';
4     
5    var
6     t,a: text;
7     st: string;
8     
9    function pr1(x: string): string;
10    var i:integer;
11    begin
12    if x[1]=' ' then
13    while x[1]=' ' do
14    delete(x,1,1);
15    pr1:=x;
16    end;
17    function pr2(x: string): string;
18    var i: integer;
19    begin
20    if x[length(x)]=' ' then
21    while x[length(x)]=' ' do
22    delete(x,length(x),1);
23    pr2:=x;
24    end;
25    function prob(x: string): string;
26    var i,j: integer;
27    begin
28    while pos('  ',x)>0 do{здесь везде по 2 пробела}
29    delete(x,pos('  ',x),1);
30    prob:=x;
31    end;
32     
33    begin
34    assign(t,f);
35    assign(a,g);
36    reset(t);
37    rewrite(a);
38    while not eof(t) do
39     begin
40      readln(t,st);
41      if length(st)>0 then
42        begin
43         st:=pr1(st);
44         st:=pr2(st);
45         st:=prob(st);
46         writeln(a,st);
47        end;
48     end;
49    close(t);
50    close(a);
51    erase(t);
52    rename(a,f);
53    writeln('Файл отредактирован');
54    readln
55    end.