Нужен перевод кода с паскаля на фортран.

[Cheeelios]

Добрый день , нужна помощь в переводе кода с паскаля на фортран.

Program X;
VAR
 A1,A2:ARRAY[1..100] of BYTE;
 N:BYTE;
 i:Integer;
BEGIN
 A1[1]:=2;
 A2[1]:=4;
 N:=1;
 Repeat
  Inc(N);
  A1[N]:=A2[N-1];
  A2[N]:=((A1[N]*2) mod 10)+((A1[N-1]*2) div 10);
 Until (A1[N]=1) and (A2[N]=2);
 For i:=N downto 1 do
  Write(A1[i]);
 WriteLn;
 For i:=N downto 1 do
  Write(A2[i]);
 WriteLn;
 ReadLn;
END.

Заранее большое спасибо.

[Vago]

      PROGRAM X

         INTEGER*1  A1(100), A2(100)
         INTEGER*1  I, N
		
         A1(1) = 2
         A2(1) = 4
         N = 1
C        REPEAT   
   10       N = N + 1
            A1(N) = A2(N-1)
            A2(N) = MOD(A1(N) * 2,10) + 2 * A1(N-1) / 10
C           PRINT *, N, A1(N),A2(N)
            if ( A1(N) .NE. 1 .OR. A2(N) .NE. 2) GOTO 10
C        UNTIL (A1[N]=1) and (A2[N]=2);

         DO I = N,1,-1
            PRINT *, A1(I)
         END DO

         DO I = N,1,-1
            PRINT *, A2(I)
         END DO
		
      END