kalkulator sederhana dengan case

uses crt;
var
x,y,hasil:real;
lagi : char;
begin
lagi :='y';
while(lagi = 'y') or (lagi= 'Y')do
begin
textcolor(7);
textbackground(1);
begin
clrscr;
       write('Selamat Datang di Kalkulator Saya');
       writeln;
       write ('masukan angka ke-1:');readln (x);
       write ('operator (+)/(-)/(*)/(/) = ');readln (lagi);
       write ('masukan angka ke-2:');readln (y);
begin
if (lagi='+')then
hasil:=x+y
end;
begin
if (lagi='-')then
hasil:=x-y
end;
begin
if (lagi='*')then
hasil:=x*y
end;
begin
if (lagi='/')then
hasil:=x/y
end;
write ('hasil = ',hasil :12:0);
writeln;
write('Mau hitung lagi apa tidak ....? (y/t)');
readln(lagi);
end;
end;
end.