Дополнить программу шифрование (дописать работу с файлами, шифрование есть)

uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  TextLabel1: TextLabel;
  TextLabel2: TextLabel;
  TextLabel3: TextLabel;
  TextLabel4: TextLabel;
  Edit1: Edit;
  Edit2: Edit;
  Edit3: Edit;
  Button1: Button;
  Button2: Button;
  Button3: Button;
  TextBox1: TextBox;
  TextBox2: TextBox;
  Button5: Button;
  OpenDialog1: OpenDialog;
//$VCLDESIGN-
 
var   A:array[1..10,1..10] of integer;
  b:array[1..10,1..10] of char;
  c:array[1..400] of char;
 
procedure Button1OnClick;
  var
  i,j,n,k:integer;
  s:string;
begin
// Readln(s);
s:=Edit1.Text;
n:=trunc(sqrt(length(s)));
while n*n<length(s) do inc(n);
while length(s)<n*n do s:=s+' ';
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=1+((i-j+(n-1) div 2)mod n)*n+((i+j+(n+1) div 2)mod n);
      if a[i,j]<0 then a[i,j]:=n*n+a[i,j];
      b[i,j]:=s[a[i,j]];
 
    end;
   end;
    for i:=1 to n do
    for j:=1 to n do
      Edit2.Text:=Edit2.Text+(b[i,j]);   //зашифровать
 
 TextBox1.Lines.Clear;
 for i:=1 to n do
  begin
    s:='';
    for j:=1 to n do
      s:=s+IntToStr(A[i,j])+chr(9);
    TextBox1.Add(s);    // выводит числовую матрицу
  end;
 
TextBox2.Lines.Clear;
 for i:=1 to n do
  begin
    s:='';
    for j:=1 to n do
      s:=s+(b[i,j])+chr(9);
    TextBox2.Add(s);    // выводит буквенную матрицу
  end ;
end;
 
procedure Button2OnClick;      //шифровка
var
  i,j,n,k:integer;
  s:string;
begin
  for i:=1 to n do
    for j:=1 to n do c[a[i,j]]:=b[i,j];
  for i:=1 to n*n do
  Edit3.Text:=Edit3.Text+(c[i]);
end;
 
procedure Button3OnClick;  // очистка
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  textBox1.Clear();
  textBox2.Clear();
end;
 
 
procedure Button5OnClick;      //////Где-то здесь ошибка помогите найти
var i,j,n,k:integer;
s:string;
begin
  TextBox1.Lines.clear;      //открывает текстовый файл
  if openDialog1.execute then
     begin
       TextBox1.lines.LoadFromFile(openDialog1.FileName);
     end;
 
  TextBox2.Lines.clear;                      // построчно выводит текстовый файл
  For i:=1 to TextBox1.lines.Count do
  begin
     s:=TextBox1.lines[i];
     end;
     begin
//Собственно обработка
n:=trunc(sqrt(length(s)));
while n*n<length(s) do inc(n);
while length(s)<n*n do s:=s+' ';
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=1+((i-j+(n-1) div 2)mod n)*n+((i+j+(n+1) div 2)mod n);
      if a[i,j]<0 then a[i,j]:=n*n+a[i,j];
      b[i,j]:=s[a[i,j]];
 
    end;
   end;
    for i:=1 to n do
    for j:=1 to n do
     s:=s+(b[i,j]);
     TextBox2.lines.Add(s);
  end;
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,734,484);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Магический квадрат','');
  TextLabel1:= TextLabel.Create(Form1,116,8,114,23);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'Введите текст:','');
  TextLabel2:= TextLabel.Create(Form1,96,64,184,23);
  TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Зашифрованный текст:','');
  TextLabel3:= TextLabel.Create(Form1,96,120,188,23);
  TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Расшифрованный текст','');
  TextLabel4:= TextLabel.Create(Form1,488,16,155,23);
  TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'Магическй квадрат','');
  Edit1:= Edit.Create(Form1,32,40,321,21);
  Edit1.InitControl(True,True,alNone,crDefault,clWindow,'привет','');
  Edit2:= Edit.Create(Form1,32,96,321,21);
  Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Edit3:= Edit.Create(Form1,32,152,321,21);
  Edit3.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Button1:= Button.Create(Form1,26,192,113,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Зашифровать','');
  Button2:= Button.Create(Form1,162,192,105,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'Расшивровать','');
  Button3:= Button.Create(Form1,88,240,105,25);
  Button3.InitControl(True,True,alNone,crDefault,0,'Очистить','');
  TextBox1:= TextBox.Create(Form1,480,56,185,89);
  TextBox1.InitControl(True,True,alNone,crDefault,clWindow,'','');
  TextBox1.ScrollBars:= ssNone;
  TextBox2:= TextBox.Create(Form1,480,168,185,89);
  TextBox2.InitControl(True,True,alNone,crDefault,clWindow,'','');
  TextBox2.ScrollBars:= ssNone;
  Button5:= Button.Create(Form1,504,288,75,25);
  Button5.InitControl(True,True,alNone,crDefault,0,'Кнопка5','');
  OpenDialog1:= OpenDialog.Create;
  TextLabel1.Font.Name:= 'Calibri';
  TextLabel1.Font.Size:= 14;
  TextLabel2.Font.Name:= 'Calibri';
  TextLabel2.Font.Size:= 14;
  TextLabel3.Font.Name:= 'Calibri';
  TextLabel3.Font.Size:= 14;
  TextLabel4.Font.Name:= 'Calibri';
  TextLabel4.Font.Size:= 14;
  Button1.Font.Color:= clBlack;
  Button1.Font.Name:= 'Arial Narrow';
  Button1.Font.Size:= 12;
  Button2.Font.Name:= 'Arial Narrow';
  Button2.Font.Size:= 12;
  Button3.Font.Name:= 'Arial Narrow';
  Button3.Font.Size:= 12;
  TextBox1.Font.Name:= 'Courier New';
  Button1.OnClick:=Button1OnClick;
  Button2.OnClick:=Button2OnClick;
  Button3.OnClick:=Button3OnClick;
  Button5.OnClick:=Button5OnClick;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.