Перевод из паскаля в фортран

[Fortran90]

Здравствуйте, переведите пожалуйста из паскаля в фортран.

program Center;
var
  f1: text;
  s: string;
  i, from_left, from_right: integer;
begin
  assign(f1,'zadan.inp');
  reset(f1);
  while not seekeof(f1) do begin
    readln(f1, s);
    from_left := 0; from_right := 0;
 
    if s = '' then continue;
 
    i := 1;
    while s[i] = ' ' do begin
      inc(i); inc(from_left);
    end;
 
    while length(s) < 80 do begin
      if from_left < from_right then begin
        s := ' ' + s; inc(from_left);
      end
      else begin
        s := s + ' '; inc(from_right);
      end;
    end;
    writeln(s);
  end;
  close(f1);
end.