Задача 1. "Уравнение для 5 класса"

[beygul]

Привет всем! Помогите пожалуйста с задачей на делфи.

Задача 1. "Уравнение для 5 класса"
Имя входного файла: a.in
Имя выходного файла a.out
Ограничение времени: 1 секунда на тест
Ограничение по памяти: 64 Мб
Уравнение для пятиклассников представляет собой строку длинной 5 символов. Второй символ строки является либо знаком "+" (плюс) либо "-" (минус), четвёртый символ - знак "=" (равно). Из первого третьего и пятого символов ровно два являются цифрами из диапазона от 0 до 9, и один - буквой x, обозначающей неизвестное.
Требуется написать программу, которая решит данное уравнение относительно x.

Формат входных данных:
Файл a.in состоит из одной строки, в которой записано уравнение.

Формат Выходных данных:
В выходном файле a.out вывести единственное целое число - значение x.

Примеры файлов входных и выходных данных:
a.in x+5=7
a.out 2

a.in 3-x=9
a.out -6


ПРОГРАММА ДОЛЖНА ПОЛНОСТЬЮ СОДЕРЖАТЬСЯ В ОДНОМ ФАЙЛЕ, ИСПОЛЬЗОВАНИЕ СВОИХ МОДУЛЕЙ НЕ ДОПУСКАЕТСЯ.
ПРОГРАММА ДОЛЖНА ЧИТАТЬ ВХОДНЫЕ ДАННЫЕ ТОЛЬКО ОДИН РАЗ.


Заранее всем мой молодёжный РЕСПЕКТ

[Don Karleone]

uses
  SysUtils;

var
  fa, fb: TextFile;
  St: String;
  n: integer;

begin
  // считываение данные из файла
  AssignFile(fa,'D:\a.txt');
  Reset(fa);
  readln(fa,St);
  CloseFile(fa);

  case Pos('x',St) of
    1: if St[2] = '+' then n:=StrToInt(St[5]) - StrToInt(St[3])
                      else n:=StrToInt(St[5]) + StrToInt(St[3]);
    3: begin
           n:=StrToInt(St[5]) - StrToInt(St[1]);
           if St[2] = '-' then n:=-n;
       end;
    5: n:=StrToInt(St[1]) + StrToInt(concat(St[2],St[3]));
  end;

  // запись результата в файл
  AssignFile(fa,'D:\b.txt');
  Rewrite(fa);
  write(fa,n);
  CloseFile(fa);
end.

[beygul]

спасибо конечно, но тут формат файлов текстовый, а нужно как в инструкции написано. Для этого просто формат поменять?

[Serge_Bliznykov]

спасибо конечно, но тут формат файлов текстовый, а нужно как в инструкции написано.

Вы заблуждаетесь!
Поверьте, у Вас в "инструкции" так и написано!
А какие типы файлов, по вашему должны быть у файлов a.in и a.out ?!

[Azamat0]

автор темы забыл написать что все файлы не должны содержать расширения ".txt"
Но это серьёзно не мешает.