Помогите с программой в Паскале, пожалуйста! Дан массив из N чисел. Определить…

Program arr; var ar: array[1… 100] of Integer; i, size, count, sum: Integer; begin Writeln ('Введите размер массива'); Readln (size); if (size > 100) then begin Writeln ('Hазмер массива превышает 100 элементов. Программа будет завершена… '); Readln; end else begin Writeln ('Введите ', size, ' чисел'); for i: =1 to size do begin readln (ar[i]); if ar[i] > 5 then begin Inc (count); Inc (sum, ar[i]); end; end; Writeln ('Вы ввели ', i — 1, ' чисел из которых ', count, ' больше 5, а их сумма составляет ', sum); Readln; end; end.