Programme en pascal

j'ai besoin d'aide , pouvez vous me corriger cet programme , la procédure remplissage n'est pas fonctionnelle et je ne sais pas comment faire pou qu'elle soit fonctionnelle
Merci d'avance
program ex;
uses wincrt;
type
tab=array[1..100]of integer;
var
t:tab;
i,a,b:integer;
function palindrome(x:integer):boolean;
var
inv,ch:string;
i:integer;
begin
str(x,ch);
inv:='';
for i:=1 to length(ch) do
inv:=ch[i] + inv ;
if (ch=inv) then
palindrome:=true
else
palindrome:=false;
end;

function premier (y:integer):boolean;
var
divi,i:integer;
begin
divi:=0;
for i:=1 to y div 2 do
if (y mod i = 0) then
divi:=divi +1;
if divi=1 then
premier:=true
else
premier:=false;
end;

procedure saisie(var m,n:integer);
begin
repeat
writeln('Donner Un entier supérieur à 10');
readln(m);
writeln('Donner un autre entier supérieur au précedent');
readln(n);
until(m>10)and(n>m);
end;

procedure remplissage (var t:tab;x,y:integer;var i:integer);
var
c:integer;
begin
i:=1;
for c:=x to y do
begin
while (palindrome(c)) and (premier(c))and (i<y) do
begin
T[i]:=c;
end;
i:=i+1;
end;
end;

procedure affichage(t:tab;i:integer);
var
c:integer;
begin
for c:=1 to i do
write(t[c],' | ');
end;

BEGIN
saisie(a,b);
remplissage(t,a,b,i);
affichage(t,i);
END.