Disk Bad Sectors Pascal Program

program sectors;

uses crt;

const    bytes_per_sector       =       512;

var      bs,final       :       Integer;
         disk           :       string;
         yo             :       Char;

begin
     repeat {*** enter the details ***}
     clrscr;
     write('Enter your disk details: ');
     readln(disk);
     writeln;
     write('Enter the number of bytes in bad sectors: ');
     readln(bs);
     writeln;

{ *** Here's where we work out how many bad clusters are on the disk ***}
     final:=bs div bytes_per_sector;

     writeln('Your ',disk,' disk has ',final,' bad clusters on it.');

     gotoxy(1,24);
     write('Again? ');
     readln(yo);
     until yo in ['n','N'];
end.