Работа с файлами Delphi

[kop]

Здравствуйте!
Задание: Из текстового файла, числа, превышающие 5, возвести в квадрат, а для чисел из диапазона -5…+5 - извлечь кубический корень, и записать в другой файл..


НЕ могу понять почему на этом моменте (j:=StrToFloat(st)) не хочет записываться данные из файла, выбивает ошибку...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
 Vf1,Vf2: TextFile;
 FileName1, FileName2: string;
 C: char;
 st:string;
 j,k:real;
begin
   FileName1:='read.txt'; //подразумевается, что файл существует
 FileName2:='write.txt';
 AssignFile(Vf1, FileName1);
 {$I-} // отключение контроля ошибок ввода-вывода
 Reset(Vf1); //открывает файл 'read.txt'
 AssignFile(Vf2, FileName2);
 Rewrite(Vf2); //создает файл 'write.txt'
 while not Eof(Vf1) do //повтор, пока не достигнут конец файла
  begin
   Readln(Vf1,st); //читает символ из файла 'read.txt'
    ShowMessage(st);
     j:=StrToFloat(st);
   lbl1.Caption:= 'проверка чисел - '+FloatToStr(j)+#13;

   Write(Vf2, C); //записывает символ в файл 'write.txt'
  end;

 CloseFile(Vf2);
 CloseFile(Vf1);
end;