Обработка строковых и символьных данных, процедура val Опции

[saturn]

Даны две строки с1 и с2, содержащие до пяти цифр каждая. Преобразовать их к данным целого типа, используя процедуру val, и вычислить арифметическое выражение c3=(c1-c2)/(c1+c2).

[Guest]

Fire_Rage
Не пойму, как посчитать с3..так неправильно-

Код

Program lab10_1;
uses crt;
var
c1,c2,c3:string[5];
cc1,cc2,e1,e2:integer;
begin
clrscr;
writeln('Vvedite stroky 1');
read(c1);
writeln('Vvedite stroky 2');
read(c2);
VAL(c1,cc1,e1);
VAL(c2,cc2,e2);
c3:=(cc1-cc2)/(cc1+cc2);
writeln('Otvet',c3);
readkey;
end.