Pascal перевести байты в килобайты СРОЧНО

Программа:

var b: integer;

begin

write('Байты: ');

readln(b);

writeln(b,' байт(а/ов) = ',b/1024:5:2,' Кбайт');

end.

Пример:

Байты: 2048

2048 байт(а/ов) =  2.00 Кбайт