freepascal.ru

Есть программа.

Код: Выделить всё

{$DEFINE DEBUG}
program FORMULA1;

uses DPU, FORLEX;

const
        ABOUT = 'FURMULA1. Copyright (c) „¦¨¤¦®¥¢ ‚« ¤¨á« ¢.' + #10 + '‚ᥠ¯à ¢  § é¨é¥­ë!';
        SETFPATH = 'settings.txt';

var
        command: string;
        Answer: extended;
        Result: boolean;
        Precision: byte = 3;

procedure ReadSettings(var Precision: byte);
var
        Settings: Text;
begin
        {$I-}
        if FileExists(SETFPATH) then begin
                Assign(Settings, SETFPATH);
                Reset(Settings);
                try
                        Read(Settings, Precision);
                except

                end;
                {$IFDEF DEBUG}
                WriteLn('Precision: ', Precision);
                {$ENDIF}
                Close(Settings);
        end
        else begin
                WriteLn('¥¢®§¬®¦­® § £à㧨âì ­ áâனª¨!');
        end;
        {$I+}
end;

begin
        WriteLn(ABOUT);
        ReadSettings(Precision);
        repeat
                Write('> ');
                ReadLn(command);
                Result := FORLEX.Calculate(command, Answer);
                if Result then
                begin
                        Str(Answer, command);
                        WriteLn('Žâ¢¥â: ', Answer:-Length(command):Precision);
                end
                else
                begin
                end;
        until command = '';
end.


Компилятор пишет:

Код: Выделить всё

formula1.pas(25, 25) Error: Identifier not found "try"


Версия компилятора: 2.4.2. Платформа i386, Win32.

Что делать?