Как найти наименьшую цифру в числе (паскаль)?

Var
   A:longint;
   Min:byte;
Begin
Min:=9;
Write('Введите целое число: ');
ReadLn(A);
A:=Abs(A);
While A > 0 do
   Begin
   if A mod 10 < Min then Min:=A mod 10;
   A:=A div 10;
   End;
WriteLn('Min = ',Min);
End.

 Если на диске много фрагментированных файлов, скорость их чтения с носителя уменьшается. Помимо замедления компьютера в работе с файловыми операциями (таких, как чтение и запись), фрагментация файлов негативно сказывается на «здоровье» жёсткого диска, так как заставляет постоянно перемещаться позиционирующие головки диска, которые осуществляют чтение и запись данных.

Для устранения проблемы фрагментации существуют программы-дефрагментаторы, принцип работы которых заключается в «сборе» каждого файла из его фрагментов. 

 Если на диске много фрагментированных файлов, скорость их чтения с носителя уменьшается. Помимо замедления компьютера в работе с файловыми операциями (таких, как чтение и запись), фрагментация файлов негативно сказывается на «здоровье» жёсткого диска, так как заставляет постоянно перемещаться позиционирующие головки диска, которые осуществляют чтение и запись данных.

Для устранения проблемы фрагментации существуют программы-дефрагментаторы, принцип работы которых заключается в «сборе» каждого файла из его фрагментов.