Перевести код с С++ на паскаль

#include "pch.h"//подключение заголовочного файла
#include <iostream>//библиотека ввода ввывода 
#include <conio.h>//заголовочный файл для создания текстового интерфейса пользователя 
 
using namespace std; // строка, позволяющая использовать cout без std перед ним 
// -------------------------------------------
bool gameOver;
const int width = 20;
const int height = 20;
int x, y, fruitX, fruitY, score;
int tailX[100], tailY[100];
int nTail;
enum eDirection { STOP = 0, LEFT, RIGHT, UP, DOWN };
eDirection dir;
// --------------------------------------------- объявление переменных
void Setup() //функция запуска игры 
{
    gameOver = false;
    dir = STOP;
    x = width / 2 - 1;
    y = height / 2 - 1;
    fruitX = rand() % width; //
    fruitY = rand() % height; //Первое появление фрукта в координатах Х, У
    score = 0;
}
 
void Draw() // функция построения игрового поля 
{
    system("cls"); 
    for (int i = 0; i < width + 1; i++)
        cout << "#";
    cout << endl;
 
    for (int i = 0; i < height; i++) 
        {
        for (int j = 0; j < width; j++) 
                {
            if (j == 0 || j == width - 1)
                cout << "#";
            if (i == y && j == x)
                cout << "0";
            else if (i == fruitY && j == fruitX)
                cout << "F";
            else 
                        {
                bool print = false;
                for (int k = 0; k < nTail; k++) 
                                {
                    if (tailX[k] == j && tailY[k] == i) 
                                        {
                        print = true;
                        cout << "o";
                    }
                }
                if (!print)
                    cout << " ";
            }
        }
        cout << endl;
    }
 
    for (int i = 0; i < width + 1; i++)
        cout << "#";
    cout << endl;
    cout << "Score: " << score << endl;
}
 
void Input() // функция, задающая клавиши для управления змейкой 
{
    if (_kbhit())
    {
        switch (_getch())
        {
        case 'a':
            dir = LEFT;
            break;
        case 'd':
            dir = RIGHT;
            break;
        case 'w':
            dir = UP;
            break;
        case 's':
            dir = DOWN;
            break;
        case 'x':
            gameOver = true;
            break;
        }
    }
}
 
void Logic() // функция, создающая хвост змеи
{
    int prevX = tailX[0];
    int prevY = tailY[0];
    int prev2X, prev2Y;
    tailX[0] = x;
    tailY[0] = y;
    for (int i = 1; i < nTail; i++) 
       {
        prev2X = tailX[i];
        prev2Y = tailY[i];
        tailX[i] = prevX;
        tailY[i] = prevY;
        prevX = prev2X;
        prevY = prev2Y;
    }
    switch (dir)
    {
    case LEFT:
        x--;
        break;
    case RIGHT:
        x++;
        break;
    case UP:
        y--;
        break;
    case DOWN:
        y++;
        break;
    }
 
    //if (x > width || x < 0 || y > height || y < 0)
    // gameOver = true; // код добавляющий "убивающие" змейку стенки в игру 
    if (x >= width - 1)
        x = 0;
    else if (x < 0)
        x = width - 2;
 
    if (y >= height)
        y = 0;
    else if (y < 0)
        y = height - 1;
 
    for (int i = 0; i < nTail; i++) 
       {
        if (tailX[i] == x && tailY[i] == y) // условие конца игры
            gameOver = true;
    }
 
    if (x == fruitX && y == fruitY) 
       {
        score += 10;
        fruitX = rand() % width;  // Обновление счета и появление нового фрукта 
        fruitY = rand() % height;
        nTail++;
    }
}
 
int main() // основная программа (с этого начинается работа программы)
{
    Setup(); // вызов функции запуска игры 
    while (!gameOver) // пока игра не закончилась,
    {
        Draw(); // рисуем поле
        Input();// управляем змейкой 
        Logic();// рисуем хвост 
    }
    return 0;
}