Market otomasyonu hata alıyorum - pascal

[uggur]

Merhabalar;
Hocamız bir proje ödevi verdi pascalda ve ben yazdığım programı çalıştıramadım Bana çok saçma geldi ama bir yerde parantez kullanmam gerekliymiş lakin kullancak yer yok gibi göremedim. Çok uğraştım ama hala neden hata aldığımı anlamadım.Aslında yazdığım prosedürleri henüz denemedim çünkü hata veren yer menüm, menüm çalışırsa daha kalanını test edicem.

begin
        menu:
        clrscr;
        writeln('1 Kay�t GiriŸi');
        writeln('2 kay�t Arama');
        writeln('3 Kay�t Listeleme');
        writeln('4 De§iŸtirme');
        writeln('5 Silme');
        writeln('6 €�k�Ÿ');
        write('Se‡iminiz: ?');
        read(d);
        if d=1 then kayit;
        if d=2 then arama;
        if d=3 then listeleme;
        if d=4 then degistirme;
        if d=5 then silme;
        if d=6 then exit;
        goto menu:
end.

Burada kürsör if d=1 then kayit; satırında ve error88 :"(" expected hatasını alıyorum. Yazdığım programın tamamı ise ektedir. Orda d=1 ifadelerimi paranteze aldım ama yine olmadı Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Saygılar

[karflake]

Projende çok fazla hata var. Mesela benim ilk gördüğüm kayit isimli hem tip tanımı hem de procedure var.

[uggur]

Teşekkürler karflake, uyarınla beraber programa göz attım tekrardan ve inanılmaz hata dolu dediğin gibi Hepsini düzenledim ve şuan programım çalışıyor Programı geç saatte yazmıştım sanırım kafa yorgunken yazmamak lazım çok saçma sapan hatalar yapmışım çünkü. Tekrar teşekkür ederim.
iyi çalışmalar.
Not: İlk yazdığım program Yaşasın balık tutmasını öğreniyorum