halpMe pascal ane apanya yang salah???

[Guesuper]

gan anekan lagi belajar pascal, kenapa program buatan ane salah terus yah gan barangkali ada agan yang bisa bantu ane

nih scriptnya


Code:

program golongandarah;
uses crt;
var a : integer;
gol: char;
begin
clrscr;
for
a := 1
to 5
do
begin
write ('masukan jenis golongan darah anda : '); readln(gol);
if gol=a then write ('golongan darah anda A');
if gol=b then write ('golongan darah anda B');
if gol=ab then write ('golongan darah anda AB');
if gol=o then write ('golongan darah anda o');
end;
readkey;
end.

yang salah mana yah gan???

mohon bantuannya

</div>

[kh4ri3]

semuanya ndan

dari perulangan for-do juga buat apa ndan kalo cuma mau nampilin satu tampilan output.

program golongan_darah;
uses crt;
var
gol : char;
begin
clrscr;
write('masukkan golongan darah anda : ');readln(gol);

while (gol <> a)or(gol <> A) or ( gol<>b) or (gol<>B) or ( gol <> ab)or(gol<>Ab)or(gol <> aB) or ( gol <>AB) or (gol <> o) or (gol <> O) do
begin
writeln('maaf data yang anda masukkan salah,tekan enter untuk mencoba lagi');
readln;
write('masukkan golongan darah anda : ');readln(gol);
end;

if (gol = 'A') or (gol = 'a')
then
writeln('golongan darah anda adalah A')
else
if ( gol='B') or ( gol = 'b')
then
writeln('golongan darah anda adalah B')
else
if (gol ='ab') or (gol = 'Ab') or (gol = ' aB ') or (gol = 'AB')
then
writeln('golongan darah anda adalah AB')
else
if (gol ='o') or ( gol = 'O')
then
writeln('golongan darah anda adalah O');
readln;
end.