Pb syntaxe pascal

Bonjour,

if (machin in ['r','t','h']) and (truc in ['r','t','h']) then

peut-être ?

program tri_inser;
uses wincrt;
type
tab=array [1..20] : integer;
var
i:integer;
n:integer;
t:tab;
procedure permiter(a,b:integer)
var
r:integer;
begin
r:=a;
a:=b;
b:=r;
end;
procedure tri (var t:tab;n:integer)
var
i:integer;
begin
repeat
k:=false;
for i:=1to 20 do
begin
if t[i]>T[i+1] then
begin
permiter t[i],t[i+1];
until (k:=true) and (i>n);
end;
begin
permiter (a,b);
tri (t,n);
end.

if machine in['r','h','t']then
begin
truc in ['r',' t',' h']
end;