duvida na introduçao de uma função

[Parasita]

Oi pessoal!!!

Estou aqui com uma ?, precissava de uma ajuda se poderem

O resultados de cada jogador (Ana,Mario,Pedro e Ines) tem de estar compreendido no intervalo 0 e 9 caso nao esteja dentro desse intervalo aparecerá uma mensagem que o resultado nao está correcto e pede ainda para introduzir novamente o resultado e apenas esse deverá ser aceite pelo programa.

Esta validação tem de ser feita atraves de uma unica funçao (LerResultados) para os 6 jogos

Aqui vai o que eu já fiz:

(.....)
Function lerResultados (a, b:integer) :string ;

 var c:integer;
 d:string;

 Begin
   a:=0;
   b:=9;
   c:= a1;

   if (c<a) and (c>b) then
       d:='Impossivel';


       lerResultados:= 'd';

 {If  (a1 in [0..9]) and (p1 in [0..9] )then
     Begin
     read (a1, p1);
       writeln ('Ana',a1,' - Pedro ',p1);
       end
           else

       writeln('Impossivel');
       readln;

         {  If (  p1<0) and( p1 >9) then

   writeln('Valor inv lido');  }

end;

{***************************************************************************************}
{Procedimentos para introdu‡Æo de Resultados}
Procedure jogo1;
Begin

writeln ('Insira o resultado do jogo Ana-Pedro :');
   read(a1,p1);
ler:= lerResultados(c);
writeln (lerResultados);

end;



Procedure jogo2;
Begin

writeln ('Insira o resultado do jogo Mário-Ines:');
read (m1,i1);
end;


Procedure jogo3;
Begin

writeln ('Insira o resultado do jogo Mário-Ana:');
read (m2,a2);
end;


Procedure jogo4;
Begin

writeln ('Insira o resultado do jogo Pedro -Ines:');
read (p2,i2);
end;


Procedure jogo5;
Begin

writeln ('Insira o resultado do jogo Ines- Ana:');
read (i3,a3);
end;


Procedure jogo6;
Begin

writeln ('Insira o resultado do jogo Pedro -Mário:');
read (p3,m3);
end;

[TheDark]

Qual é a dúvida, afinal? :👍

[Parasita]

Esta cena nao funciona dahhhhhhhh

[TheDark]

Mas esse código está muito incompleto para te podermos ajudar. Há ali variáveis que aparecem magicamente (como a1 e p1). Se puseres o resto do código talvez alguém te consiga ajudar... aliás, provavelmente alguém te conseguirá ajudar 👍