Написать программу в которой сформируется на экране строка из кодов 66,69,71,73,78

Program p1;
uses crt;
var a,i:integer;
s:string;
begin
for i:=1 to 5 do begin
read(a);
s:=s+chr(a);
end;
write(s);
end.