Строковый тип данных. Обработка строк

[MishanyaZWER]

Народ помогите решить задачку
Вычисление арифметического выражения. Дан массив строк, в которых записаны арифметические выражения. Арифметическое выражение вводится в виде строки вида A op B, где А и В — целые числа, а op — знак арифметической операции: +, -, *, /. Написать программу, вычисляющую значение выражения и дописывающую результат в конце каждой строки.

[eoln]

Тело функции для изменения одной строки.

for i := 1 to length(s) do
  if s[i] in ['-', '+', '*', '/'] then
  begin
    val(copy(s, 1, i - 1), A, q);
    val(copy(s, i + 1, length(s) - i + 1), B, q);
    case s[i] of
      '-': begin str(A-B, st); s := s + '=' + st; end;
      ...
    end;
    break
  end;

Функцию обозвать, переменные объявить и в цикле передавать значения массива.