Помогите пожалуйста...Напечатать программу в паскале...Срочно...Завтра последний срок сдачи..



Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.

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 beginwrite('Введите ',i,' элемент массива: ');readln(a[i])end;{проверка условий}for i:=1 to 10 do {перебираем элементы массива}begink:=0; {задаем триггер} s:=a[i];for j:=length(s) div 2+1 to length(s) doif s[j] in number then k:=1; {Pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера}if k=0 then writeln(s)end;readln end.