Защита программы

[pomoshnic]

Привет всем я написал функцию для защиты программы, но никак немогу исправить ошибку . Пожайлуста помогите!
Вот код:

procedure safe;
const
kodr='aaaaa11111';
reg='c:\programfiles\azbooka.dat';
og='c:\ogr.dat';
var
 re:file of string[10];
 p:file of byte;
 o,r,max:byte;
 kod:string [10];
 i: integer;
begin
  assign(re,reg);
  {$i-}
  reset(re);
  {$i+}
  r:=(ioresult);
  case r of
  0:begin
      read(re,kod);{ОШИБКА}
      {type mismatch} 
      if kod=kodr then goto ok;
    end;
  else:begin
	 write('Для ввода кода нажмите "enter" для запуска demo версии нажмите "esc"');
	 r:=ord(readkey);
	 if r=ln or r=nl then
	 begin;
	   clrscr;
	   writeln('Введтие код(10 символов)');
	   for r:=1 to 10 do
	   begin
	     kod [r]:=(keypressed);
	     write ('*');
	   end;
	   if kod=kodr then
	   begin
	     close(re);
	     rewrite(re);
	     write(re,kod);
	     writeln('Правильный код');
	     safe;
	   end;
	   writeln('Неправльный код');
	   close(re);
	 end;
       end;
  end;
  assign(p,og);
  {$i-}
  reset(p);
  {si+}
  r:=(ioresult);
  if r <> 0 then
  begin
    max:=(3);
    assign (p,og);
    rewrite (p);
    write(p,max);
  end;
  read(p,o);
  close(p);
  if (O=0) then halt;
  O:=o-1;
  rewrite(p);
  write(p,o);
  close (p);
  writeln ('У вас осталось ',o,' раз');
  read(o);
  end;

Зарание спасибо!!!