переведите с pascal на java

program c4;
program c4;

var

w: array[1..99] of string;

N: integer;

s: integer;

line: string;

i, j: integer;

begin

{читаем обучающий блок}

for i := 1 to 9 do readln(w[i]);

for i := 11 to 19 do readln(w[i]);

for i := 1 to 9 do readln(w[10*i]);

{строим полный словарь}

for i := 2 to 9 do begin

for j := 1 to 9 do begin

w[10*i + j] := w[10*i]+ ' ' + w[j];

end;

end;

{читаем и обрабатываем основной набор данных}

readln(N);

s:= 0 ;

for i:=1 to N do begin

readln(line);

j:=1;

while (j<100) and (w[j]<>line) do j:=j+1;

if j<100 then s:=s+j; end;

writeln(s);

end.