Массивы, Pascal 3

[oksana_b]

Создать текстовой массив из 14 элементов ( длинна от 3 до 15 символов), которые вводятся с клавы. Сосчитать и вывести на экран, сколько целых чисел в каждом массиве?

[Stilet]

var a:array[1..14] of string[15];q,w,i,n:integer;
begin n:=0;
 for i:=1 to 14 do begin readln(a[i]); val(a[i],q,w);if w=0 then inc(n);end; write(n);readln;
end.