Помогите пожалуйста!) Напечатать программку в паскале......Пожалуйста...Безотлагательно...Завтра

Program Strok;
uses crt;
const number=['0','1','2','3','4','5','6','7','8','9'];
var A:array[1..10] of string;
i,j,k:integer;
s:string;
begin
Ввод частей массива
for i:=1 to 10 do 
begin
write('Введите ',i,' элемент массива: ');
readln(a[i])
end;
проверка критерий
for i:=1 to 10 do перебираем элементы массива
begin
k:=0; задаем триггер 
s:=a[i];
for j:=length(s) div 2+1 to length(s) do
if s[j] in number then k:=1; Pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строчку со 2-ой половины на "вшивость", и, если повстречалась цифра, вызываем срабатывание тригера
if k=0 then writeln(s)
end;
readln end.