программа нахождения мантиссы и порядка

[Mirazhana]

В вузе задали написать программу на паскале, которая определяет в каких байтах расположена мантисса, а в каких порядок. Условия задачи: тип:single, число:5,8E10. Основываясь на похожей программе написала свою. Но мне кажется, что в ней есть ошибка, потому-что у меня возникают 2 байта порядка, а ведь он должен быть только 1 вроде бы. Подскажите, как исправить?

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.