Pascal/Turbo Pascal - Diagrama de chapín, no se como pasar una función de pascal al chapin

Tengo la función readkey, y no se como pasarla al chapín. El programa en cripta password para que por pantalla se vean asteriscos, el código lo saque de acá porque no logré encontrar info en otro lado... Alguien podría ser tan amable de explicarme que significa readkey, #13? Es como que casi que entiendo el código pero tengo dudas sobre eso...de antemano Gracias!

Procedure LECTURACONTRA (OPC:integer);
var
ch:char;
password, CLAVE: string;
cont:integer;

begin
ClrScr;
cont:= 0;
if (OPC=1) then
begin
CLAVE:='EMPRESA123';
repeat
write('Ingrese la CLAVE de ACCESO EMPRESA: ');
ch:= readkey ;
password:='';
while (ch<>#13) do
begin
password:=password+ch;
write('*');
ch:=readkey;
end;
if password = CLAVE then
begin
writeln('ACCESO CORRECTO');
Delay (1100);
ClrScr ;
MENUEMPRESA;
end
else
begin
cont:=cont+1;
writeln('ACCESO DENEGADO');
writeln('INTENTO NUM: ',cont);
password:='';
Delay (1100);
ClrScr ;
end
until (password='EMPRESA123') or (cont=3)
end;
if (OPC=2) then
REPEAT
write('Ingrese la CLAVE de ACCESO CLIENTE: ');
ch:=readkey;
password:='';
while (ch<>#13) do
begin
password:=password+ch;
write('*');
ch:=readkey;
end;
if password = 'CLIENTE123' then
begin
writeln('ACCESO CORRECTO');
Delay (1200);
ClrScr ;
MENUCLIENTE;
OPC:=0;
end
else
begin
cont:=cont+1;
writeln('ACCESO DENEGADO');
writeln('INTENTO NUM: ',cont);
password:='';
Delay (1200);
ClrScr ;
end
until (password='CLIENTE123') or (cont=3);
end;

Sobre tu pregunta te informo.
Primero readkey te espera que pulses una tecla y te devuelve el caracter de la tecla pulsada
por ejemplo si pulsas la letra A te devolvera el caracter A dependiendo de si esta en mayusculas
o a si minusculas.
segundo el #13 corresponde a la tecla retur el sistema de entrada estara activo asta que la tecla
pulsada sea retur o sea #13.
Espero esta esplicacion te sirva.

sii, gracias!!