Из Delphi в Fortran

[kopeika]

Здравствуйте помогите перевести программу из Delphi в Фортран...Программа шифрует методом цезаря

const Buk:array[0..65] of char = ('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й', 'К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я', 'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы', 'ь','э','ю','я');

var
  Form1: TForm1;
  b:array[0..65] of char;
  i, j, k: byte;
  s, s2:string;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtnClick(Sender: TObject);
begin
  For i:=0 to 65 do
  begin                        //Формирование нового массива
    b[i]:= Buk[(i+1) mod 66];
  end;

  if CheckBox.Checked = false then begin // Кодирование
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = b[j] then s2 := s2+b[(j+(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

  if CheckBox.Checked = true then begin // Декодирование
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = b[j] then s2 := s2+b[(j-(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) Вы напишите хоть что-нибудь на Вашем фортране, а сложные места можно будет попытаться перевести вместе.
А писать полностью с нуля - вряд ли найдёте такого энтузиаста и знатока Фортрана

2) а что у Вас за версия Фортрана?!
как, например, Вы планируете перевести визуальные элементы, которые имеются в представленном Вами коде (CheckBox, IshMemo, ObrMemo )?