Преобразование количества байт в более крупные единицы

Program perevod;
Uses crt;
Var a,b: longint; c: real;
Begin
Clrscr;
Writeln('Введите объем информации (в байтах): ');
Readln(a);
Writeln('В какие единицы измерения инф. вы хотите перевести: ');
Writeln('1: Kbyte');
Writeln('2: Mbyte');
Writeln('3: Gbyte');
Readln(b);
Case b of
1: begin
   c:=a/1024;
   Write(c:4:2,' Kbyte');
   end;
2: begin
   c:=a/(1024*1024);
   Write(c:4:2,' Mbyte');
   end;
3: begin
   c:=a/(1024*1024*1024);
   Write(c:4:2,' Gbyte');
   end;
end;
End.

procedure Per(a: word; b: string);
begin
  if b = 'kb' then writeln(a div 1024);
  if b = 'mb' then writeln(a div 1024 div 1000);
  if b = 'gb' then writeln(a div 1024 div 1000 div 1000)
end;
var
  a: word;
  b: char;
begin
  write('Vvedite bayti: ');
  readln(a);
  writeln('Vi jotite perevesti v ');
  writeln('1.KB');
  writeln('2.MB');
  writeln('3.GB');
  readln(b);
  case b of
   '1': Per(a,'kb');
   '2': Per(a,'mb');
   '3': Per(a,'gb')
  end;
  readln
end.

function SizeStr(size:real):string;
const
    SIZE_K :array[0..4] of string = ('B', 'KB', 'MB', 'GB', 'TB');
var k  :Integer;
    sz :Real;
    ret:string;
begin
    sz := size;
    k := 0;
    while (sz >= 1023.9) and (k < 4) do begin
        sz := sz / 1024;
        inc(k);
    end;
    if k = 0 then Str(Round(sz), ret)
    else if sz < 9.995 then Str(sz:1:2, ret)
    else if sz < 99.95 then Str(sz:1:1, ret)
    else Str(Round(sz), ret);
    ret := ret + ' ' + SIZE_K[k];
    SizeStr := ret;
end;
 
var size:Real;
begin
    write('size=');
    readln(size);
    writeln(SizeStr(size));
    readln;
end.