Pascal y diagramas

P.10.6.- Escriba un programa para ejecutar el juego del ahorcado. La palabra que se debe adivinar no tendrá más de 10 caracteres. Por cada carácter que se introduzca que no pertenezca a la palabra,se visualizará en pantalla uno de los siguientes caracteres ‘OI/\’ hasta que se forme la figura siguiente, momento en que se habrá perdido el juego. Los caracteres que se adivinen aparecerán enpantalla en la posición que ocupan en la palabra.

Figura del ahorcado o
/I\
I
/ \

program ahorcado;
uses
crt;
typecad=string[10];
var
palabra,auxi,adi:cad;
letra:char;
posi,l:integer;
procedure comienzo(var palabra,auxi,adi:cad;var l:integer);
var
i:integer;
begingotoxy(25,10);
writeln('JUEGO DEL AHORCADO');
writeln('Escribe la palabra a adivinar: ');
readln(palabra);
l:=length(palabra);{LONGITUD DE LA PALABRA A ADIVINAR}auxi:=palabra;
adi[0]:=chr(l); {INDICO EL TAMA¥O DE LA CADENA QUE VOY ADIVINANDO}
for i:=1 to l do
adi[i]:='_'; {LLENO DICHA PALABRA CON _ EN CADA LETRA}
clrscr;
end;procedure acierto(auxi:cad;var posi:integer;letra:char);
var
n:integer;
begin
delete(auxi,1,posi);{BORRA HASTA DONDE HA ENCONTRADO LA LETRA}
n:=posi;posi:=pos(letra,auxi);{BUSCA LA LETRA EN EL NUEVO TROZO DE PALABRA}
if posi0 then
posi:=posi+n;{SI HA ENCONTRADO OTRA POSICION,SE LA SUMA A LA ANTERIOR}
end;
procedure dibujo(p:integer);
varparte:string[7];
f,c:integer;
begin
parte:='O/I\I/'; {DIBUJO DEL AHORCADO}
case p of {DEPENDIENDO DEL N§ DE FALLOS,ESCRIBE UNA PARTE DEL MU¥ECO}
1 : beginf:=1; c:=2;
end;
2 : begin
f:=2; c:=1;
end;
3 : begin
f:=2; c:=2;
end;
4 : begin
f:=2;...