Лабораторная работа по информатике паскаль абс "найти сумму и количество чисел, больших единицы, из 5 введенных с клавиатуры."

var 
 a:array[1..5] of integer; 
 i,s,k:byte;
begin 
 writeln('Введите 5 чисел'); 
 for i:=1 to 5 do 
begin   
 write(i,')');      
 readln(a[i]);     
  if (a[i]>1) then   
begin     
 s:=s+a[i];     
 k:=k+1;   
 end; 
end; 
 writeln('Сумма:',s,'. Кол-во:',k);
end.