Programa Banco de Dados – Pascal – Campeonato Brasileiro

procedure exclui_tim;
var
ch :char;
codigo,x:integer;
aux:string;
nao_pode_del:boolean;
begin
repeat
mascara(false,4,1);
repeat
menstime(0);
textcolor(91);
gotoxy(13,06);
readln(aux);
if aux <> ''then
val(aux,codigo,falha)
else
falha:=0;
until (falha=0);
if aux <> ''then
begin
if (codigo < 1) or (codigo > filesize(tim)) then
nao_existe(true)
else
begin
seek(tim,codigo-1);
read(tim,regtim);
if regtim.time = '' then
nao_existe(true)
else
begin
nao_pode_del:=false;
seek(jog,0);
while not eof(jog) do
begin
read(jog,regjog);
if (codigo = regjog.ticasa) or (codigo = regjog.tivisi) then
nao_pode_del:=true;
end;
if not nao_pode_del then
begin
mascara(true,4,1);
gotoxy(1,25);
textbackground(3);
textcolor(0);
write(' Excluir ');
repeat
ch := s_n(1,0);
until (ch ='S') or (ch = 'N');
if ch = 'S'then
begin
regtim.time:='';
regtim.cidade:='';
regtim.uf :='';
regtim.cep :='';
regtim.telefone:='';
regtim.estadio:='';
regtim.tecnico:='';
regtim.dia:= 0;
regtim.mes:= 0;
regtim.ano:= 0;
regtim.obs:= '';
seek(tim,codigo-1);
write(tim,regtim);
seek(ind,0);
read(ind,idc);
x:=1;
while idc.vet[x] <> codigo do
x:=x+1;
while idc.vet[x] <> 0 do
begin
idc.vet[x] := idc.vet[x+1];
x:=x+1;
end;
idc.ult:=idc.ult-1;
seek(ind,0);
write(ind,idc);
end;
end
else nao_existe(false);
end;
end;
gotoxy(1,25);
textbackground(3);
textcolor(80);
write(' Nova exclusÆo ');
ch := s_n(1,0);
end
else
ch:='N';
until ch = 'N';
end;

procedure altera_jog;
var
ch ,op:char;
codigo,time_anterior: integer;
aux:string;
begin
op := ' ';
repeat
mascara(false,2,2);
repeat
mensjog(7);
textcolor(91);
gotoxy(13,06);
readln(aux);
if aux <> ''then
val(aux,codigo,falha)
else
falha:=0;
until (falha=0);
if aux <> ''then
begin
if (codigo < 1)…