文件读写简单问题...抢分了

type ReadStr=record
  St:Array[0..49] of Char;
end;procedure ReadFmtFile;
var
  F:File of ReadStr;
  S:ReadStr;
  Temp:String;
begin
  AssingFile(F,'C:\1.fmt');
  ReSet(F);
  While Not Eof(F) do
    begin
      Read(F,S);//此时S.St中就是读出的50个字符
      Temp:=S.St;
    end;
  CloseFile(F);
end;