En quel langage est ce programme ?

bonjour, c'est en quel langage ce programme
program plusgrandpluspetitelement;
uses crt;
type
t=array[1..20]of integer;
var
tab:t;
m,g,p:integer;
procedure remplire_tab(var ttab:t;var nb:integer );
var
n,i:integer;
begin
write('veuillez donner le nombre d''elments');
read(n);
while (n<=0) or (n>20) do
begin
clrscr;
writeln('erreur le nombre d''elements doit etre entre 1 et 20 ');
writeln('veuillez redonner le nombre d''elements');
read(n);
end;
nb:=n;
for i:=1 to n do
begin
clrscr;
writeln('veuillez donner l''element ttab[ ', i ,'] = ');
read( ttab[i]);
end;
end;
procedure plugplup(tabl:t;nb:integer;var maximum , minimum : integer);
var
i:integer;
begin
maximum:=tabl[1];
minimum:=tabl[1];
for i:=2 to nb do
begin
if tabl[i]<minimum then
begin
minimum:=tabl[i];
end;
if tabl[i]>maximum then
begin
maximum:=tabl[i];
end;
end;
end;
begin
remplire_tab(tab,m);
plugplup(tab,m,g,p);
clrscr;
write('le plus grand element du tableau est ',g,' et le plus petit est ',p);
readln(m);
end.