Срочно нужна помощь! Одномерный массив заполнить случайными числами. Все элементы, модуль которых меньше 5, увеличить в 2 раза(оформить в виде процедуры или функции).Сколько замен было сделано? Результат вывести в файл.
паскаль!

нужно только исправить...

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 abs(ar[i])<5 then begin;  ar[i]:=ar[i]*2;   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.