Не пойму, почему такие числа при расчетах

unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm6 = class(TForm)
    SG1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form6: TForm6;
 
implementation
        uses
      unit5;
{$R *.dfm}
 Type
Sved = record
fio :string[35];
datarozhd:string[35];
datapos:string[35];
usl:string[35];
skidka:integer;
karta:integer;
suma:integer;
price:integer;
end;
sved2=record
usl:string[15];
cena:integer;
end;
price=record
  usl:string[35];
  cena:integer;
  procent:integer;
end;
 
 
//Загрузка данных 1 таблицы
procedure TForm6.button1Click(Sender: TObject);
var
f,f2:textfile;
i:integer;
z:Sved;
x:Sved2;
begin
SG1.RowCount:=35;
assignfile(f,'F:\sved.txt');
assignfile(f2,'F:\sved2.txt');
reset(f);
i:=1;
while not eof(f) do begin
readln(f,z.fio);
readln(f,z.datarozhd);
readln(f,z.datapos);
readln(f,z.usl);
readln(f,z.skidka);
readln(f,z.karta);
SG1.cells[0,i]:=z.fio;
SG1.cells[1,i]:=z.datarozhd;
SG1.cells[2,i]:=z.datapos;
SG1.cells[3,i]:=z.usl;
SG1.cells[4,i]:=inttostr (z.skidka);
SG1.cells[5,i]:=inttostr (z.karta);
sg1.Cells[6,i]:=inttostr (x.cena);
i:=i+1;
end;
SG1.rowcount:= SG1.RowCount-1;
end;
 
procedure TForm6.Button2Click(Sender: TObject);
var
z:sved;
x:Sved2;
f2:textfile;
cena,skidka,karta,i,suma:integer;
s:real;
usl:string[35];
begin
//suma:=0;
if trim (sg1.Cells[0,0])='' then begin
showmessage ('Заполните таблицу');exit;end;
assignfile(f2,'F:\sved2.txt');reset(f2);
for i := 1 to sg1.rowcount - 1 do begin
  s:=0;
  reset(f2);
   while not eof(f2) do begin
      readln(f2,z.usl);
      readln(f2,x.cena);
    // showmessage(sg1.Cells[3,i]+' '+ z.usl);
     if trim (sg1.Cells[3,i])=trim (z.usl) then begin
         s:=(x.cena/100*z.skidka)+(x.cena/100*z.karta);
         sg1.cells[6,i]:=floattostr(s);
      end;
 
end;
//suma:=suma-x.cena;
end;
end;
 
procedure TForm6.Button3Click(Sender: TObject);
var
fw:textfile;//переменная ведомости
i,s,suma:integer;
begin
 if savedialog1.execute then begin
assignfile (fw,savedialog1.filename);
rewrite(fw);
writeln(fw,'Ведомость по стоимости услуг спортклуба');
writeln(fw,'----------------------------------------');
writeln(fw,'ФИО           ' + '     Стоимость'      );
writeln(fw, sg1.cells[0,i] +'       '+sg1.cells[6,i] );
writeln(fw,'----------------------------------------');
for i := 1 to sg1.rowcount-1 do
begin
writeln(fw,sg1.cells[0,i]+ ' - ' +sg1.cells[6,i]);end;
   writeln(fw,'----------------------------------------');
closefile(fw);showmessage('Отчет сформирован');
end;
end;
 
//Название колонок в таблице
procedure TForm6.FormCreate(Sender: TObject);
begin
sg1.RowCount:=30;
sg1.cells[0,0]:='ФИО';
sg1.cells[1,0]:='Дата рождения';
sg1.cells[2,0]:='Дата посещения';
sg1.cells[3,0]:='Услуга';
sg1.cells[4,0]:='Скидка (%)';
sg1.cells[5,0]:='Карта (%)';
sg1.cells[6,0]:='Стоимость';
end;
 
end.