Перемещать смайлик с одной стороны экрана на другую (Borland Pascal)

uses
  CRT;
 
type
  sType = record
    bChar  : Byte;
    bColor : Byte;
  end;
 
var
  S : array [0..24, 0..79] of sType absolute $B800:$0000;
  Ch : Char;
  Row, Col, dRow, dCol : Integer;
 
const
  Msg : String = 'Для выхода жмите ESC...';
 
begin
  S[0,0].bColor := 0;
  for Col := 1 to Length(Msg) do
    begin
      S[0, Col].bColor := 13;
      S[0, Col].bChar  := Byte(Msg[Col]);
    end;
 
  Randomize;
  Row := Random(25);  dRow := 1;
  Col := Random(80);  dCol := 2;
  Ch  := #0;
  repeat
    S[Row, Col].bColor := 0;
    if ( (Row + dRow) < 0) or ( (Row + dRow) > 24) then dRow := -dRow;
    if ( (Col + dCol) < 0) or ( (Col + dCol) > 79) then dCol := -dCol;
    Inc(Row, dRow); Inc(Col, dCol);
 
    if (Row > 10) and (Row < 14) and (Col > 30) and (Col < 50) then
      S[Row, Col].bColor := 13
    else
      S[Row, Col].bColor := 14;
    S[Row, Col].bChar  := 2;
 
    Delay(100);
 
    if KeyPressed then
      Ch := ReadKey;
  until Ch = #27;
end.