unit has;
interface
const
  n=10;
type
  hast=array  of boolean;
*********
procedure zero(ha:hast);
function full(ha:hast):boolean;
procedure insert(var ha:hast);
procedure out(var ha:hast);
*********
implementation
 procedure zero(var ha:hast);
 var
   i:integer;
   hs:hast;
 begin
  for i:=1 to n do
     ha:=false;
  end;
 ******
 function full(ha:hast):boolean;
 var
   temp:boolean;
   i:integer;
 begin
   temp:=true;
   i:=1;
   while temp do
    begin
      if ha=true then
       temp:=true
      else
       temp:=false;
      i:=i+1;
    end;
   if temp then
    full:=true
   else
    full:=flase;
 end;
procedure insert(var ha:hast);
 var
  num,i:integer;
  temp:boolean;
 begin
  temp:=false;
  i:=1;
  while temp=false do
   begin
    if ha=false then
    begin
     ha:=true;
     temp:=true;
     writeln('You have a free spot at: ',i);
    end
    else
     i:=i+1;
   end;
procedure out(var ha:hast);
 var
  num:integer;
  temp:boolean;
 begin
  temp:=false;
  while temp=false do
  begin
  writeln('Enter your parking spot');
  readln(num);
  if ha=true
   begin
  ha:=false;
  writeln('Thank you for using park and drive');
  temp:=true;
   end
    else
      writeln('Parking spot is empty');
  end;
begin
end;