อ่ะ ทำให้ละ ผิดถูกแก้ไขเพิ่มเติมเอาเน้อ
Program Manager;
Uses crt;
var id , name , position , salary , bonus : Array[1..5] of String;
n :integer;
Begin
clrscr;
id[1] := '1';
name[1] := 'name1';
position[1] := 'pos1';
salary[1] := '2000';
bonus[1] := '100';
id[2] := '2';
name[2] := 'name2';
position[2] := 'pos2';
salary[2] := '2000';
bonus[2] := '100';
id[3] := '3';
name[3] := 'name3';
position[3] := 'pos3';
salary[3] := '2000';
bonus[3] := '100';
id[4] := '4';
name[4] := 'name4';
position[4] := 'pos4';
salary[4] := '2000';
bonus[4] := '100';
id[5] := '5';
name[5] := 'name5';
position[5] := 'pos5';
salary[5] := '2000';
bonus[5] := '100';
clrscr;
repeat
Write('Please Select Manager 1..5 (0 Exit) : ');
readln(n);
clrscr;
case n of
1 : begin writeln('name = ',name[n]);
writeln('position = ',position[n]);
writeln('salary = ',salary[n]);
writeln('bonus = ',bonus[n]);
end;
2 : begin writeln('name = ',name[n]);
writeln('position = ',position[n]);
writeln('salary = ',salary[n]);
writeln('bonus = ',bonus[n]);
end;
3 : begin writeln('name = ',name[n]);
writeln('position = ',position[n]);
writeln('salary = ',salary[n]);
writeln('bonus = ',bonus[n]);
end;
4 : begin writeln('name = ',name[n]);
writeln('position = ',position[n]);
writeln('salary = ',salary[n]);
writeln('bonus = ',bonus[n]);
end;
5 : begin writeln('name = ',name[n]);
writeln('position = ',position[n]);
writeln('salary = ',salary[n]);
writeln('bonus = ',bonus[n]);
end;
end;
until n = 0;
End.