Fórum duvida pascal #158454

tenho uma procedure em pascal,e quero passar para o delphi,
sei que delphi é pascal,mas eu não como usa o textcolor,goto,TEXTBACKGROUND no delphi,sera que vc pode me ajudar? ou dar alguma dica para que eu possa fazer?

{*************** DESENHA A PISTA *******************}
PROCEDURE PISTA(C,CF:BYTE);
VAR X,Y:INTEGER;
BEGIN
TEXTCOLOR(C);
TEXTBACKGROUND(CF);
CLRSCR;
X:=8;
GOTOXY(5,7);
WRITE(´SAIDA ®®®´);
FOR Y:=11 TO 50 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
GOTOXY(Y-2,X-1);
WRITE(´A1´);
GOTOXY(Y-7,X-1);
WRITE(´A2´);
GOTOXY(Y-12,X-1);
WRITE(´A3´);
GOTOXY(Y-17,X-1);
WRITE(´A4´);
GOTOXY(Y-22,X-1);
WRITE(´A5´);
GOTOXY(Y,X);
WRITE(´Ù´);
FOR X:=5 TO 7 DO
BEGIN
GOTOXY(Y,X);
WRITE(´³´);
END;
GOTOXY(Y-10,X-3);
WRITE(´DESVIO ´A´´);
Y:=Y+7;
FOR X:=5 TO 7 DO
BEGIN
GOTOXY(Y,X);
WRITE(´³´);
END;
GOTOXY(Y,X+1);
WRITE(´À´);
X:=8;
FOR Y:=58 TO 65 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
GOTOXY(Y-3,X-2);
WRITE(´CHEGADA DE CARROS´);
GOTOXY(Y+1,X-1);
WRITE(´NA RUA ´A´´);
X:=X+3;
FOR Y:=11 TO 19 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
WRITE(´¿´);
Y:=Y+1;
FOR X:=X+1 TO X+5 DO
BEGIN
GOTOXY(Y,X);
WRITE(´³´);
END;
GOTOXY(Y+8,X-4);
WRITE(´B3´);
GOTOXY(Y+8,X-2);
WRITE(´B2´);
GOTOXY(Y+8,X);
WRITE(´B1´);
GOTOXY(Y,X);
WRITE(´Ù´);
FOR Y:=11 TO 19 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
GOTOXY(Y-14,X-1);
WRITE(´DESVIO ´B´´);
X:=X+3;
FOR Y:=11 TO 19 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
Y:=Y+1;
GOTOXY(Y,X);
WRITE(´¿´);
FOR X:=X+1 TO X+3 DO
BEGIN
GOTOXY(Y,X);
WRITE(´³´);
END;
GOTOXY(Y+8,X+1);
WRITE(´CHEGADA DE CARROS´);
GOTOXY(Y+12,X+2);
WRITE(´NA RUA ´B´´);
X:=X-12;
Y:=Y+7;
FOR X:=X+1 TO X+12 DO
BEGIN
GOTOXY(Y,X);
WRITE(´³´);
END;
X:=X-11;
GOTOXY(Y,X);
WRITE(´Ú´);
FOR Y:=Y+1 TO Y+38 DO
BEGIN
GOTOXY(Y,X);
WRITE(´Ä´);
END;
END;