Представить введенное число в машинном виде с использованием 4 байтового представления

var
x: array[1..8] of integer = (0,0,0,0,0,0,0,0);
  b:array [1..100] of integer;
  i,n,c,k,o,h,s,q:integer;
  a,d:real;
begin
  read(a); 
   writeln('Число:');
  if a>0 then write('0.')
  else write('1.');
  a:=abs(a);
  c := trunc(a); 
  d := frac(a);
  i:=0;
   while c>=1 do
     begin
       i:=i+1;
       b[i]:=c mod 2;
       c:=c div 2;
     end;
  n:=i;
h:=0;
  o:=127+i;
  if o>0 then begin
  repeat
    h:= h + 1;
    x[h]:= o mod 2;
    o:= o div 2; 
  until o = 0;
  for i:= 8 downto 1 do 
    write(x[i]);
    end;
    write('.');
    for i:=n downto 1 do
     write(b[i]);
s:=n;
  n := 0;
  while (d > 0) and (n < 16) do
    begin
      n += 1;
      d *= 2;
      b[n] := trunc(d);
      d := frac(d);
    end;
  if n > 0 then
    begin    
      for i := 1 to n do
        Write(b[i]);
    end;
   q:=23-n-s;
    for i:=1 to q do write('0'); 
end.