Исправить код по нахождению суммы

uses crt;
procedure www(a,b:integer);
begin
  write('Vvedite a i b: ');
  readln(a,b);
end;
//--------------------------------------------------
procedure eee(ch:char);
begin
  write('Vvedite operator(+,-,*,/) :');
  readln(ch);
end;
 
//---------------------------------------------------
procedure rrr(x1,x2:integer; var sum:real);
begin
  sum:=x1+x2;
  sum:=x1-x2;
  sum:=x1*x2;
  sum:=x1/x2;
  write(sum);
end;
//----------------------------------------------------
var
z,x:integer;
q:char;
w:real;
begin
  www(z,x);
  eee(q);
  rrr(z,x,w);
 
end.

uses crt;
procedure www(var a,b:real);
begin
  write('Vvedite a i b: ');
  readln(a,b);
end;
//--------------------------------------------------
procedure eee(var ch:char);
begin
  write('Vvedite operator(+,-,*,/) :');
  readln(ch);
end;
 
//---------------------------------------------------
procedure rrr(x1,x2:real;ch:char; var sum:real);
begin
case ch of
'+':sum:=x1+x2;
'-':sum:=x1-x2;
'*':sum:=x1*x2;
'/':sum:=x1/x2;
end;
write(sum:0:2);
end;
//----------------------------------------------------
var
z,x,w:real;
q:char;
begin
www(z,x);
eee(q);
rrr(z,x,q,w);
end.