Написать программу, считывающую данные из файла

procedure TForm1.Button1Click(Sender: TObject);
*type tfa=array[0..199999]of byte;
*var  sfm2,n,tm,tm2,Loaded_long, Read_B_S:integer;
     exInfo: TShellExecuteInfo;
     Ph: DWORD; foname:string; 
*fb:file of tfa;vtfa:tfa;
     a,b:smallint ;
begin  Loaded_long:=5000000; Read_B_S:=100000;
 ppmCorr:=SpinEdit1.Value; foname:='f2';
 if not checkbox1.Checked then begin
   sfm2:=strtoint(combobox1.items[combobox1.itemindex]);
   Sample_Freq:=round(sfm2); Centre_Freq:=strtoint(edit1.text);
   FillChar(exInfo, SizeOf(exInfo), 0);
     with exInfo do   begin
       cbSize := SizeOf(exInfo);    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
       Wnd := GetActiveWindow();     ExInfo.lpVerb := 'open';     lpFile := PChar('rtl_sdr.exe');
       lpParameters:=PChar(' -f'+inttostr(Centre_Freq)+' -s'+inttostr(sfm2)+' -p'+inttostr(ppmCorr)+' -n'+inttostr(Loaded_long)+' -g49.6 '+foname);  nShow := SW_SHOWMINNOACTIVE;  end;
     if ShellExecuteEx(@exInfo) then    begin {  Application.Minimize; }  Ph := exInfo.HProcess;
     end else     Exit;
     while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do  Application.ProcessMessages;
  CloseHandle(Ph);end; n:=0;
 if not checkbox1.Checked then  AssignFile(fb, foname) else
 *begin  od1.Execute;   AssignFile(fb, od1.FileName);  end;
 *reset(fb); setlength(Re,Read_B_S); setlength(Im,Read_B_S); setlength(P_h,Read_B_S);
 while (not eof(fb)) and(n<Loaded_long)do   begin
 * read(fb,vtfa);
  *for tm:=0 to Read_B_S-1 do begin
     tm2:=tm*2; a:=vtfa[tm2]-127;b:=vtfa[tm2+1]-127;
     Re[n]:=a;  Im[n]:=b; if b<>0 then P_h[n]:=arctan(a/b)/pi else P_h[n]:=0;
     n:=n+1;
     if ((n/Read_B_S)=round(n/Read_B_S))then begin setlength(Re,n+Read_B_S);setlength(Im,n+Read_B_S);setlength(P_h,n+Read_B_S); label6.Caption:=inttostr(n);  form1.Repaint;  end;
  end;
 end;
 *closefile(fb);