ช่วยเขียนโปรแกรมการขายเสื้อผ้าหัยน่อยน๊ค๊า

program        dekpascal;
uses            crt;
var            store : string;
                size,color : char;
                raka,raka2 : real;
                Baht : longint;
begin
          clrscr;
          writeln('Store : ABC ');
          writeln;
          writeln('1 = Size S ');
          writeln('2 = Size L ');
          writeln('3 = Size M ');
          readln(size);
          writeln;
          case size of
          '1' : writeln('Size S');
          '2' : writeln('Size L');
          '3' : writeln('Size M');
          else
          writeln('No Size')
          end;
          writeln('1 = color red ');
          writeln('2 = color black ');
          writeln('3 = color greed ');
          readln(color);
          writeln;
          case color of
          '1' : writeln('color red ');
          '2' : writeln('color black ');
          '3' : writeln('color greed ');
          else
          writeln('No color');
          end;
          writeln('Please Baht Enter ');
          readln(Baht);
          if Baht <= 500 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 10% = ',raka2:2:2);
          end.
          else
          if Baht <= 1000 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 20% = ',raka2:2:2);
          end;
          readln;
end.