Pascal/Turbo Pascal - Problema Salida de espacios en espacio vacio en ves de numerico

MI duda es la siguiente,debo presentar un programa de estacionamiento, de tipo vehículos livianos- pesados / Motos, que cobre 500 por hora y que muestre el tipo de vehiculo, la hora de entreda y salida, total a pagar, osea un registro, pero como son dos tipos son dos registros.....


Ya terminado el método de ingreso , y mostrar los datos... Ala hora de querer sacar un vehiculo, no quiero que quede un valor numérico posea (0) quiero que se pueda digitar el espacio solamente y que vuelva disponible el espacios de salida....

por ahora lo e montado asi:
solo el procedimiento de salida...


procedure Metodo_SalidaVehiculos;
var i:integer;
opc:String;
Placaabuscar:string;



begin

Writeln ('********************************************************');
Writeln ('Deseas salir del estacionamiento?');
Writeln (' Si no no se ha cumplido la hora igual se cobrara por el tiempo indicado');
Writeln ('Digite el numero de placa de su vehiculo:');
Readln (Placaabuscar);
for i := 1 to 3 do
begin
if (ArregloVehiculo[i].NumPlaca = Placaabuscar) then
begin
Writeln ('*******************************************');
Writeln ('Registro Espacios Automovil/Camion : ',i);
Writeln ('Placa: ',Arreglovehiculo[i].NumPlaca);
Writeln ('Tipo: ',Arreglovehiculo[i].Tipovehiculo);
Writeln ('Hora de entrada: ',Arreglovehiculo[i].Horadeentrada);
Writeln ('Hora de salida: ',Arreglovehiculo[i].Horadesalida);
Writeln ('Total a pagar: ',Arreglovehiculo[i].CostoTotal:1:0,' colones');
Writeln ('Tiempo de estancia:' ,Arreglovehiculo[i].TotalTiempo, ' horas');
Writeln ('************************************************');

***** Aquí es donde quiero colocar una condicional de '' y lo muestre como espacio vacio cuando vuela a pedir datos en el menú**************

Estas líneas son erróneas por eso quiero dar la idea de que lo intente
Writeln ('Digite la opcion de salida para continuar');
Readln (opc);
opc:= RegistroVehiculos;
***********************************************************************************

Writeln('La transaccion ha sido exitosa,Gracias por preferirnos !!');



end;


end;
end;