Считать с файла в структуру / переделать из делфи на Си

unit Unit29;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
TWeapon = record
    Name:string[15];  //название оружия
    Tip:string[20]; //тип (гладкоствольное \ нарезное \ комбинированное)
    Price:string[20];  //название оружия
    Weight:real;   // вес (в килограммах)
    Count:string[40]; // кол-во стволов
    Add:string[150]; //добавочная информация (калибр, применение итд)
end;
 
  TForm29 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Button1: TButton;
    Label5: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  const nf='E:\Weapon.txt';
var
  Form29: TForm29;
  f:text;   //файл базы
  mas:array [1..500] of TWeapon; //база на 500 оружий
  z:integer; //счетчик для базы
implementation
 
{$R *.dfm}
 
function readword:string; //функция которая отделяет слова
var ch:char; t:string;
begin
read(f,ch);while ch=' ' do read(f,ch);
t:='';
while ch<>' ' do begin
t:=t+ch;
read(f,ch);
end;
readword:=t;
end;
 
 
procedure TForm29.Button2Click(Sender: TObject);
var ch:char; s:string; r:real;
begin
if (FileExists(nf)=false) // проверяем наличие файла   (если нет, то
  then
  begin
  ShowMessage('Файла '+nf+'. Содержащего базу ружей не существует. Создайте его или укажите правильный путь!');
  Application.Terminate;      //пишем что файла нет и закрываем программу
  end
  else          //если же файл есть
  BEGIN   //обрабатываем файл (базу)
 z:=0;  //счетчик ружей
 assignfile(f,nf);   //файл с базой
 reset(f);
 while not seekeof(f) do  //пока не конец файла
 begin
 z:=z+1; // добавили ячейку для оружия, теперь заполняем
 mas[z].Name:=readword;  //считываем название
 //showmessage('Имя '+IntToStr(z) + ' ружья = '+  mas[z].Name);
 mas[z].Tip:=readword;   //считываем тип
  //showmessage('Тип '+IntToStr(z) + ' ружья = '+  mas[z].Tip);
 mas[z].Count:=readword; //считываем кол-во стволов
 if  mas[z].Count='двуствольное' then //если двуствольное, то
 mas[z].Count:=mas[z].Count+' '+readword; //считываем еще кол-во стволов
 //Showmessage('Число стволов и их расположение : ' +  mas[z].Count);
 mas[z].Price:=readword+' '+readword+' '+readword;  //считываем цену
  //mas[z].Price:=StrToFloat(readword);  //считываем цену
 //showmessage('Цена '+IntToStr(z) + ' ружья = '+  FloatToStr(mas[z].Price));
 //showmessage('Цена '+IntToStr(z) + ' ружья = '+  mas[z].Price);
 mas[z].Weight:=StrToFloat(readword);  //считываем вес
  //showmessage('Вес '+IntToStr(z) + ' ружья = '+  FloatToStr(mas[z].Weight));
  s:='';
 while not eoln(f) do
 begin
  read(f,ch);
  s:=s+ch;
 end;
  mas[z].Add:=s;
 //showmessage('Дополнительная информация '+IntToStr(z) + ' ружья = '+#13 + s);
 end;
closefile(f);
Label5.Caption:='Количество оружий в базе: '+IntToStr(z);
  END;
end;
 
procedure TForm29.FormCreate(Sender: TObject);
begin
Button2.Click();
end;
 
 
procedure TForm29.Button1Click(Sender: TObject);  //кнопка подобрать
var i,p:integer;  res,s1,s2,s3,s4:string;
begin
s1:=ComboBox1.Text;          //считываем нужный тип
s2:=ComboBox2.Text;          //нужную стоимость
s3:='до 10 тыс.';
if ComboBox4.ItemIndex=0 then    //определяем кол-во стволов
s4:='одноствольное';
if ComboBox4.ItemIndex=1 then
s4:='двуствольное горизонтально';
if ComboBox4.ItemIndex=2 then
s4:='двуствольное вертикально';
res:='';
for i:=1 to z do      //перебираем все оружия
if mas[i].Tip=s1 then    //если тип сходится
  if (mas[i].Price=s2) or ((s2='до 20 тыс.') and (mas[i].Price='до 10 тыс.')) then   //проверяем цену
    if mas[i].Count=s4 then  //кол-во стволов сходится
    begin
    //осталось проверить вес
    if ComboBox3.ItemIndex=0 then   //если выбран до 3 кг
    if (mas[i].Weight<=3) then       //проверяем меньше ли 3 кг
    res:=res+mas[i].Name+#13+mas[i].Add+#13+#13;        //если да, то добавляем
 
    if ComboBox3.ItemIndex=1 then   //если выбран до 3.5 кг
    if (mas[i].Weight<=3.5) then       //проверяем меньше ли 3.5 кг
       res:=res+mas[i].Name+#13+mas[i].Add+#13+#13;        //если да, то добавляем
 
    if ComboBox3.ItemIndex=2 then   //если выбран выше 3.5
    if (mas[i].Weight>3.5) then       //проверяем выше ли 3.5
     res:=res+mas[i].Name+#13+mas[i].Add+#13+#13;        //если да, то добавляем
   end;
if res<>'' then
res:='Вам подходят: '+ #13 + res
else
res:='К сожалению подходящего не нашлось, попробуйте изменить критерии поиска...';
 
showmessage(res);
end;
 
end.