Ввести строку найти и вывести количество цифр больших 5 входящую в данную строку Срочно на языке паскаль

Если я тебя правильно поняла, то держи:)  var   i, kol: integer;           a: array[1..10] of integer;    begin          for i:=1 to 10 do readln(a[i]);          kol:=0;          for i:=1 to 10 do                  if a[i]>5 then kol:=kol+1;         writeln('  ', kol);    end.