Вопрос Помогите найти ошибку в программе

File Edit Search Run Compile Debug Tools Options Window Help
┌───────────────────────────────── Tanya.pas ────────────────────────────1─────┐
│Program HP; │
│var s,i,n: real; │
│Begin │
│Read; │
│s:=0; │
│For i:=1 to n do s:=s+1/i; │
│Write(s); │
│And. │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
└──────────────────────────────────────────────────────────────────────────────┘
╔═[■]═════════════════════════ Compiler Messages ════════════════════════2═[]═╗
║ Tanya.pas(6,5) Error: Ordinal expression expected
║ Tanya.pas(6,18) Fatal: Internal error 200611054 ■
║ Tanya.pas(0) Fatal: Compilation aborted