10 sayidan en büyüğü

Klavyeden girilen 10 sayidan hangisinin en büyük sayi olduğunu ve hangi sirada girildiğini ekrana yazdıran program

program enbuyuks(input,output);
var
   i,sayi,enbuyuk,sira : integer;
begin
writeln('Sayiyi Giriniz');
readln(sayi);
enbuyuk:=sayi;
sira:=1;
for i:=2 to 9 do
 begin
 writeln('Sayiyi Girin');
 readln(sayi);
 if sayi>enbuyuk then
   begin
    sira:=i+1;
    enbuyuk:=sayi
   end
end;
writeln('en buyuk sayi : ',enbuyuk);
writeln('Girildigi Sira : ',sira);
readln()
end.