Олимпиада - арифметические операции с простыми дробями ..

[Goian]

С клавиатуры вводятся два обычных дроби (Числитель Знаменатель) и знак операции (+,-,*,/).
Напишите программу, которая будет определять и выводить на экран полученный результат в виде обычного не сократимые дроби.
Вот што у меня получилось Постоянно ошыбки викидает. Помогите решить правельно!

program g;
var a, b, c, d : integer;
operation : char;
flag:boolean;
begin
write('enter operation+ - / * :');
readln(operation);
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
write('d=');
read(d);
flag:=true;
case operation of
'*': if b<>0 and d<>0 then
 a:=a*c;
 b:=b*d;
    else
    begin
    writeln('division by zero')
    flag:=false;
 '/': if b<>0 and d<>0 and c<>0 then
 a:=a*d;
 b:=b*c;
    elso
    begin
    writeln('division by zero')
    flag:=false;
'+': if b<>0 and d<>0 then
 a:=a*d;
 c:=c*b;
 b:=b*d;
 a:=a+c;
    elso
    begin
    writeln('division by zero')
    flag:=false;
    '-': if b<>0 and d<>0 then
 a:=a*d;
 c:=c*b;
 b:=b*d;
 a:=a-c;
    elso
    begin
    writeln('division by zero')
    flag:=false;
c:=a;
d:=b;
 while c<>d do
if c>d then c:=c-d;
       elso d:=d-c;
a:=a/c;
b:=b/c;
writeln(a,/,b)

[Abstraction]

Что за ошибки и разве begin не должен идти в паре с end?