Написать функцию,которая находит либо разность,либо сумму элементов- Pascal(Паскаль)

uses crt;
function SumRaz(a,b:real;k:byte):real;
begin
case k of
0:SumRaz:=a+b;
1:SumRaz:=a-b;
end;
end;
var a,b:real;
    k:byte;
begin
clrscr;
randomize;
writeln('Введите 2 числа:');
readln(a,b);
k:=random(2);
writeln('k=',k);
case k of
0:write('Сумма=',SumRaz(a,b,k):0:2);
1:write('Разность=',SumRaz(a,b,k):0:2);
end;
readln
end.