Определить значения полей структуры по содержимому файла - Assembler

program type_data;
Type
  CH=array [1..16] of char;
  T=record
--------------------------------------------------
tekst:CH;       {строка 16 символов, 1й-16й байты}
ShorP:shortint; {однобайтное целое со знаком,
17й байт}
ShorN:shortint; {однобайтное целое со знаком,
18й байт}
IntP:integer;   {двухбайтное целое со знаком,
19й-20й байты}
LongN:longint;  {четырехбайтное целое со знаком,
21й-24й байты}
SingP:single;   {стандартное вещественное,
25й-28й байты}
SingN:single;   {стандартное вещественное,
29й-32й байты}
--------------------------------------------------
RealP:real; {нестандартное вещественное,
33й-38й байты}
RealN:real; {нестандартное вещественное,
39й-44й байты}
PrimP:real      {Пример: PrimP=1.5 (1.1B),
45й-50й байты}
--------------------------------------------------
  end;
Var X:T;
  f:file of T;
  fin:text;
  fil_in,fil_out:string[12];
  num_lr:char;
begin
  X.tekst:='Строка символов ';
  X.PrimP:=1.5;
for num_lr:='1' to '15' do
 begin
   Assign(fin,'lr3_v'+num_lr+'.txt');
   Reset(fin);
   read(fin,X.ShorP,X.ShorN,X.IntP,X.LongN,
        X.SingP,X.SingN,X.RealP,X.RealN);
   close(fin);
   Assign(f,'lr3_v'+num_lr+'.dat');
   Rewrite(f);
   write(f,X);
   close(f)
 end
end.