Нахождение бит мантиссы и бит порядка вещественного числа

uses crt;
var s:single;
    m:array[1..4] of byte absolute s;
    pm:array[1..4] of byte;
    i:integer;
    mb,pb:byte;
begin
    clrscr;
    s:= 1.0;
    Writeln('s= ',s);
    Writeln('Значения 4 байт вещественного числа:');
    for i:=1 to 4 do
    begin
        Write(m[i],' ');
        pm[i]:= m[i];
    end;
    Writeln;
    s:= 2.0;
    Writeln('Новое значение s = ',s);
    for i:=1 to 4 do
    begin
        Write(m[i],' ');
    end;
    Writeln;
    for i:=1 to 4 do
    begin
        if m[i] = pm[i] then
        begin
            Writeln(i,' байт числа - мантисса');
            mb:=mb+1; {количество байт в мантиссе}
        end
        else
        begin
            pb:=i; {байт,в котором лежит порядок}
            Writeln(i,' байт числа - порядок');
        end;
    end;
    Writeln;
    Writeln('введите ',mb, ' байт мантиссы');
    if pb = 1 then
    begin
        for i:=pb+1 to mb+1 do
            Read(m[i]);
    end
    else
    begin
        for i:=1 to mb do
            Read(m[i]);
    end;
    Writeln('введите значение порядка');
    Readln(m[pb]);
    Writeln('Конечное значение s= ',s);
end.