Takdir Alıp Alamayacağınızı Hesaplayan Program

ses wincrt;
var
ders:array[1..15]of string;
sa:array[1..15]of integer;
no:array[1..15]of integer;
kredi:array[1..15]of integer;
i,Tkredi,tsa,n:integer;
ort:real;
begin
Tkredi:=0; Tsa:=0;
writeln('kaç dersin var');
readln(n);
for i:=1 to n do Begin
write(i,'.dersi giriniz=');
readln(ders[i]);
end;
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _');
for i:=1 to n do Begin
write(Ders[i],'nin notunu gir=');
read(no[i]);
end;
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _');
for i:= 1 to n do begin
write(ders[i],'nin saatini girin:');
read(sa[i]);
end;
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _');
for i:=1 to n do kredi[i]:=no[i]*sa[i];
for i:=1 to n do
writeln(ders[i],'=',no[i],'*',sa[i],'=',kredi[i]);
for i:=1to n do begin
tkredi:=tkredi+kredi[i];
tsa:=tsa+sa[i];
end;
ort:=tkredi/tsa;
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ ',3);
writeln('toplam kredin:',tkredi);
writeln('toplam ders saatin:',tsa);
writeln('diplama notun:',ort:2:1);
if ort>4.5 then writeln('basarilar ve tebrik ederim TAKTIR ALIYORSUN.....');
end.