ช่วยทีครับทำเท่าไรไม่ได้เลย

เอาไปลองดูนะครับ ยังไม่ได้ลอง

program it4x;
uses crt;
var sex:char;
    name1,name2,name3:string;
begin
    clrscr;
    write('What Is Your Sex (M = male) (F = Female) ? = ');
    readln(sex);
    sex:=upcase(sex);


    if sex="M" then
begin
writeln('Your Male')
write('What Is Your Name1 ? = ');readln(name1);
write('What Is Your Name2 ? = ');readln(name2);
end;
   
    else
begin
writeln('Your FeMale')
write('What Is Your Name1 ? = ');readln(name1);
write('What Is Your Name2 ? = ');readln(name2);
write('What Is Your Name3 ? = ');readln(name3);
end;

    readln;
end.

??? ขอบใจครับที่ช่วย แต่ รันไม่ได้ อ่า ครับ ลองแก้ แล้ว แก้ จน มัน บอก total เออเลอร์ครับ
ช่วยให้ทีนะครับ

— bomban1112 link=topic=5657.msg14591#msg14591 date=1278681190

??? ขอบใจครับที่ช่วย แต่ รันไม่ได้ อ่า ครับ ลองแก้ แล้ว แก้ จน มัน บอก total เออเลอร์ครับ
ช่วยให้ทีนะครับ

ช่วยแค่นี้หล่ะครับ หัดแก้เอา ดูไ้้ด้จาก ตัวอย่าง

http://www.it4x.com/forum/index.php?topic=1138.0

ใบ้ให้ ผิดตัว ""

แล้วก็พวก ;