Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее...

Question

Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!
В массиве хранится информация о баллах,
полученных спортсменом-десятиборцем в каждом из десяти видов спорта. Для выхода
в следующий этап соревнований общая сумма баллов должна превысить некоторое
известное значение. Определить вышел ли данный спортсмен в следующий этап
соревнований.const m=10;
var a:array[1..m] of byte;
i,k:byte;
s:integer;
begin writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do
begin
write(' ',i,'-й вид спорта:');
readln(a[i]);
end;
begin
s:=0;
s:=s+a[i];
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
end;\
if s>k then writeln('Спортсмен проходит в следующий тур')
else writeln('Спортсмен не проходит в следующий тур');
end.

Answer 1

Program test;
const m=4;
var a:array[1..m] of byte;
i,k:byte;s:integer;
begin
s:=0;
writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do  
begin      
write(' ',i,'-й вид спорта:');   
readln(a[i]);          
s:=s+a[i];
end;
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
if s>k
then
writeln('Спортсмен проходит  в следующий тур')
else
writeln('Спортсмен не проходит в следующий тур');
end.