Составить процедуру,вычисляющую значение True,если все элементы одномерного массива имеют значения,большие заданной величины,и False в противном случае.Используя эту процедуру,изменить значение каждого элемента тех двух заданных массивов A(n) и B(m) на обратное,в которых все исходные значения больше величины T.В противном случае вывести сообщение “условие не выполнено”кст.Определить сколько раз встречается заданное слово.Паскаль

const  n=100;type  V=array[1..n] of integer;  procedure IsGreater(var p:V; m,T:integer; var r:boolean);var  i:integer;begin  i:=1; r:=True;  while (i<=n) and r do  begin r:=(p[i]>T); Inc(i) endend;procedure Init(var p:V; m:integer);{ инициализация и вывод массива }var  i:integer;begin  for i := 1 to m do  begin p[i]:=Random(51)-25; Write(p[i]:4) end;  Writelnend;procedure Invert(var p:V; m:integer);{ инвертирование элементов и вывод массива }var  i:integer;begin  Writeln('Текущие значения элементов массива');  for i := 1 to m do  begin p[i]:=-p[i]; Write(p[i]:4) end;  Writelnend;var  a,b:V;  i,m1,m2,t:integer;  res:boolean;begin  Randomize;  Write('Введите размеры массивов a и b: '); Read(m1,m2);  Writeln('Введите пороговое значение T: '); Read(t);  Writeln('Элементы массива A');  Init(a,m1);  IsGreater(a,m1,t,res);  if res then Invert(a,m1)  else Writeln('Условие не выполнено');  Writeln('Элементы массива B');  Init(b,m2);  IsGreater(b,m2,t,res);  if res then Invert(b,m2)  else Writeln('Условие не выполнено')end.Тестовое решение:Введите размеры массивов a и b: 15 9Введите пороговое значение T: -24Элементы массива A  23  -9 -23 -25 -25  -4 -16  -2  -3   6  -8 -19  19  21  12Условие не выполненоЭлементы массива B  -6  -9  -3 -23  14   4 -11  24  11Текущие значения элементов массива   6   9   3  23 -14  -4  11 -24 -11