одномерный массив заполнить случайными числами. Все эелементы, имеющие значения от5 до 10, заменить числом 100 (оформите в виде процедуры или функции). сколько замен было сделано? результат вывести в файл

type ta=array[1..10] of integer;var f:text;s:string;i,k:integer;ar:ta;procedure change(var ar:ta; i:integer; var k:integer);begin;if (ar[i]>5) and (ar[i]<10) then begin;  ar[i]:=100;   inc(k); end;end;begin;randomize;k:=0;writeln('First array:');for i:=1 to 10 do begin;  ar[i]:=random(30);  write(ar[i]:4);  change(ar,i,k); end;assign(f,'text.txt'); rewrite(f);  writeln(f,'Final array:');   for i:=1 to 10 do    write(f,ar[i]:4);     writeln(f,' ');      writeln(f,'Changes:',k); close(f);end.