С помощью оператора CASE реализовать все возможные операции над двумя целыми числами

var
  x, y : integer;
  key : byte;
  
begin
Write('X = '); Readln(x);
Write('Y = '); Readln(y);
Repeat
Writeln('Выбор операции: ');
Writeln('1. Сложение');
Writeln('2. Вычитание');
Writeln('3. Умножение');
Writeln('4. Остаток от деления');
Writeln('5. Целая часть от деления');
Writeln('6. Возведение в степень');
Writeln('7. Операция отношения');
Writeln('0. Выход');
Readln(key);
case  Key of
1 : Writeln(x, ' + ', y, ' = ', x+y);
2 : Writeln(x, ' - ', y, ' = ', x-y);
3 : Writeln(x, ' * ', y, ' = ', x*y);
4 : if y <> 0 then Writeln(x, ' / ', y, ' = ', x mod y);
5 : if y <> 0 then Writeln(x, ' / ', y, ' = ', x div y);
6 : Writeln(x, ' ^ ', y, ' = ', power(x, y));
7 : 
    begin
    if x > y then Writeln(x, ' > ', y)
      else if x < y then Writeln(x, ' < ', y)
        else Writeln(x, ' = ', y)
    end;
end;    
until key = 0;
end.