fpc-fallback.sh

#!/bin/bash
WORKDIR="$HOME/Pascal"
EDITOR="gedit"
COMPILER="fpc"

####

local-open-editor() {
    $EDITOR "$WORKDIR/$FILENAME.pas" &
}
local-compile() {
    $COMPILER "$WORKDIR/$FILENAME.pas"
}
local-run() {
    echo ">>> Running $FILENAME..."
    "./$FILENAME" && echo ">>> Exited normally" \
        || echo ">>> Runtime error"
}
local-change-filename() {
    echo "Новое имя файла? (текущее - $FILENAME)"
    read -p '> ' FILENAME
    echo 'Изменено'
}
local-help() {
    echo 'Что делать: [e] - открыть редактор, [c] - компиляция, [r] - запуск, [f] - другой файл, [h] - помощь, [q] - выход'
}
local-main-loop() {
    KEY=''
    while [ ! "z$KEY" == "zq" ]; do
        read -p '> ' -n1 KEY
        echo
        case $KEY in
            "e" | "E") local-open-editor;;
            "c" | "C") local-compile;;
            "r" | "R") local-run;;
            "f" | "F") local-change-filename;;
            "h" | "H") local-help;;
        esac
    done
    unset KEY
}

####

[ -d $WORKDIR ] || mkdir -p $WORKDIR
cd $WORKDIR

echo 'Имя файла? (без расширения)'
read -p '> ' FILENAME
echo '(Сохраняй почаще)'

local-help

QUIT=''
while [ ! "z$QUIT" == "zДа" ]; do
    local-main-loop
    echo -e '\033[00;31mТочно\033[00;0m хочешь выйти? Да/Нет'
    read -p '> ' QUIT
    [ "z$QUIT" == "zДа" ] || echo 'Окей, нет. Имя файла то же.'
done