Одномерный массив заполнить случайными числами. Все эелементы, имеющие значения от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.