Ввести последовательность целых чисел, разделенных пробелом. Определить cколько чисел заканчивается на цифру «4». Если таких чисел нет, то вывести соответствующее сообщение — Pascal(Паскаль)

program gop;
var a:string;
i,n,kol:integer;
begin
writeln('vvedite strioku');
readln(a);
kol:=0;
a:=a+' ';
for i:=1 to length(a) do
begin
if (a[i]=' ') then if (a[i-1]='4') then inc(kol);
end;
 writeln('koli4estvo=',kol);
end.