реализация типа простая дробь. что то не правильно

Unit dr;
 
   interface
 
       type
         drob=record
         re,im:real);
       end;
        var q,q1,q2:string[15];s:real;x,y:drob;
     procedure VVOD;     
     procedure SLOG;     
     procedure VICHIT;   
     procedure Prouzv;   
     procedure DELEN;    
 
     procedure VIVOD;   
 
   implementation
 
   procedure VVOD;     
      begin
        writeln('1ая дробь');
        writeln('числитель=');
        readln(x.re); 
        writeln('знаменатель='); //
        readln(x.im);
        if x.im<=0 then
           writeln('знаменатель должен быть больше нуля')
        else
           writeln(x.re,'/', x.im);
           
        writeln('2ая дробь');
        writeln('числитель=');
        readln(y.re);
        writeln('знаменатель');
        readln(y.im);
        if y.im<=0 then
           writeln('знаменатель должен быть больше нуля')
        else
           writeln(y.re,'',y.im);
      end;
      
   procedure SLOG;     {сложение}
      begin
        q1:=x.re*y.im+y.re*x.im;
        q2:=x.im*y.im;
      writeln(q1,'/',q2);
      end;
   procedure VICHIT;   {разность}
      begin
        q1:=x.re*y.im-y.re*x.im;
        q2:=x.im*y.im;;
         writeln(q1,'/',q2);
        q:='Ðàçíîñòü';
      end;
   procedure Prouzv;  
      begin
        q1:=x.re*y.re;
        q2:=x.im*y.im;
       writeln(q1,'/',q2);
      end;
   procedure DELEN;   
      begin
        q1:=x.re*y.re;
        q2:=x.im*y.im;
        writeln(q1,'/',q2);
      end;
 
     end.