система счисления Опции

[Pautina]

Условие задачи состоит в следующем: Найти все простые числа. не превосходящие заданного числа n>0 и записать их в 16-ой системе счисления.

Написала программу

uses crt;
var 
n,i,k,y, pdel:integer;
    p, Code : Integer;
    St,s: string;

Begin
clrscr;
pdel:=0;
  repeat
   Write('Введите n: ');
   Readln(st);
   Val(St, p, Code);
   if Code<>0 then Writeln('Неправильный ввод! Ошибка в позиции: ',Code);
  until Code = 0;
 n:=p;
 for i:=2 to n do begin
                    for k:=2 to i do
                    if i mod k = 0 then pdel:=pdel+1;
                    if pdel=1 then Write(i,' ');
s:=’ ‘;
y:=i mod 16; 
 case y of  
0..9 : s:=Str(y)+s;  
10: s:='A'+s;  
11: s:='B'+s;  
12: s:='C'+s;  
13: s:='D'+s;  
14: s:='E'+s;  
15: s:='F'+s;  
end; 
 i:=i div 16; 
 if i=0 then break;
writeln('vashe chislo v 16 ss =  ',s);
                                     pdel:=0;
                  end;
Writeln;
End.

простые числа работают, а вот с перевод не идет. Подскажите,что я делаю не так.
Заранее огромное спасибо!