Перевод сс в free pascal

[MaxKate]

Сразу скажу-исходный код взят с другого форума
как данный код преобразовать, чтобы при запуске появлялось меню с выбором системы счисления (3, 5 или 8), в которую будем переводить?
Выбор варианта с помощью стрелок
Буду оооочень благодарна!

const
    a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
function StrToInt(const s: String): Integer;
var
    Result, code: Integer;
begin
    val(s, Result, code);
    if (code <> 0)
    then
        Result := 0;
    StrToInt := Result;
end;
function Convert(numb: Integer; const c: Byte): String;
var
    Result: String;
begin
    Result := '';
    repeat
        Result := a[numb mod c + 1] + Result;
        numb := numb div c;
    until (numb = 0);
    Convert := Result;
end;
function ShowMenu(): Byte;
var
    Result: Byte;
begin
    repeat
        Write('В какую систему счисления будем-с переводить? <2..16>:');
        ReadLn(Result);
    until (Result in [2..16]);
    ShowMenu := Result;
end;
var
    f: File Of Char;
    s: String;
    temp: Byte;
    c: Char;
begin
    Assign(f, 'f.txt'); ReSet(f);
    s := '';
    while Not (EoF(f)) do
    begin
        Read(f, c);
        if (c in ['0'..'9'])
        then
            s := s + c
        else
            if (c = ',')
            then
            begin
                temp := ShowMenu();
                WriteLn(s, '=', Convert(StrToInt(s), temp));
                s := '';
            end
    end;
    temp := ShowMenu();
    WriteLn(s, '=', Convert(StrToInt(s), temp));
    Close(f);
end.

[Serge_Bliznykov]

меню в графике или в консольном режиме?

эти темы смотрели?
http://www.programmersforum.ru/showthread.php?t=77178

http://www.programmersforum.ru/showthread.php?t=166694

http://www.programmersforum.ru/showthread.php?t=195667

[MaxKate]

без разницы в каком режиме
все уже перепробовала, видимо руки не оттуда растут

[MaxKate]

[QUOTE=Serge_Bliznykov;1605342]меню в графике или в консольном режиме?
в каком по-проще будет?

[Serge_Bliznykov]

проще будет вообще без стрелок - выдать меню и ввести нужный пункт через ReadLn:

WriteLn('1 - Сделать то');
WriteLn('2 - Сделать это');
WriteLn('0 - Выход из программы');
ReadLn(n);

ну, если нужно со стрелками - тогда, имхо, проще в консоли...

[MaxKate]

спасибо большое, надеюсь, так прокатит..

[challengerr]

создайте f.txt