pascal anlayan yarım etsin

Arakadaşlar bir sınıftaki öğrenci sayısını kullanıcıya sorduktan sonra sırayla bu öğrencilerin isimlerini, vize ve final notlarını klavyeden bilgisayara giren, vize notunun %40’ı ve final notunun %60’şını alarak öğrenci başarı notunu hesaplayan, öğrenci başarı notu 50 ve üzeri ise ekrana “Geçti” aksi taktirde “Kaldı” yazdıran ve sınıf öğrenci başarı notu ortalamasını hesaplayan pascal kodları lazım anlayan varsa bi el atarsa çok sevincem.

Örnek Ekran Çıktısıda böle olcak

Sınıftaki Öğrenci Sayısı : 3
1. Öğrencinin adı soyadı: Ali Gel
1. Vize Notu : 50
1. Final Notu : 50

İsim : Ali Gel Başarı Notu : 50 Durum : Geçti

2. Öğrencinin adı soyadı: Veli Git
2. Vize Notu : 100
2. Final Notu : 100

İsim : Veli Git Başarı Notu : 100 Durum : Geçti

3. Öğrencinin adı soyadı: Can Dan
3. Vize Notu : 0
3. Final Notu : 0

İsim : Can Dan Başarı Notu : 0 Durum : Kaldı

yarın bişeyler yazabilirim acil değilse.kafam epey dağınık şimdi girersem çıkmam zor olur.

uses crt;
var a,b,c,d,f:integer;
e:string;
begin
Write('Sınıftaki öğrenci Sayısını girin=');readln(a);

for b:=1 to a do 
begin
Write(b,'.öğrencinin adı');readln(e);
Write(b,'.vize notu');readln(c);
Write(b,'.final notu');readln(d);
f:=(c*0,4)+(d*0,6);
if(f>=45)
Write('isim',e,'Başarı notu',f,'Geçti')
else
Write('isim',e,'Başarı notu',f,'Kaldı')



end;

end.

deneme fırsatım olmadı ezbere yazdım ama bunun gibi bişey olması lazım

çok aciliyeti yok yalnız çok karar ve döngüleri kullanırken ilk öğrenen biriymiş gibi kodlaması lazım bana halledebilirseniz kafam çok meşgül ediyor .

saol bunu denedim ama hata verdi

hatayı yazasanız bakalım neymiş?

ss aldım resimde gözüküyor

hatayı hallediyorum birazdan eklerim.o hatadan başka bi kaç hata daha var if koyunca then koyulmamış vs.

valla çok saolun çok işime yarıcak çözebilirsek