Pascal/Turbo Pascal - porgrama no hace nada

este programa corre pero no me hace nada asi q si aguien me puede decir donde esta el error y alguna opcion para arreglarlo se lo agradeceria.

program hexadecimal (input, output);

uses crt;
type
Res=array [1..100] of integer;
var
N,r,i,x,a:integer;
Re:res;
Begin
clrscr;
i:=1;
writeln('ESTE PROGRAMA PASA LOS NUMEROS DE BASE 10 A BASE 16');
writeln('Digite el numero');read(N);
a:=N;
while a>16 do
r:=a div 16 ;
x:=(a-(r*16));
a:=x;
re[i]:=a;
i:=i+1;
Case a of
10: write ('A');
11: write ('B');
12: write ('C');
13: write ('D');
14: write ('E');
15: write ('F');
else
write(a);
end;
readkey;
end.

Hola nuevamente Monik! Lo he probado en Turbo Pascal 7 y funcionaba bien, le daba el número 10 y me devolvía la A, por ejemplo, por lo que creo que anda correctamente.

Un beso!