procedure eliminar(var miarchivo:archivo);
var
status:char;
placa: integer;
sw:boolean;
tam:integer;
registro:registros;
mitemporal:temporal;
begin
clrscr;
sw:=false;
assign(mitemporal,'temporal.dat');
reset(miarchivo);
rewrite(mitemporal);
{$I-}
Reset(miarchivo);
{$I+}
if (ioresult<>0) then
begin
write ('aun no se han agregado registros');
end;
write('Placa a eliminar: ');readln(placa);
while (eof(miarchivo)=false) do
begin
read (miarchivo,registro);
if (placa= registro.placa) then
BEGIN
clrscr;
writeln('REGISTRO ENCONTRADO');
Writeln;
sw:=true;
seek(miarchivo,placa-1);
read(miarchivo,registro);
registro.status:='B';
seek(miarchivo,placa-1);
write(miarchivo,registro);
write('<enter> para continuar ');readln;
close(miarchivo);
end
else
write(mitemporal,registro);
end;
close(miarchivo);
close(mitemporal);
erase(miarchivo);
rename(mitemporal,'registros.dat');
if (sw=false) then
begin
writeln (' REGISTRO NO ENCONTRADO');
readln; //finsi
end;
end;