массив и процедура

[bruNET]

Помогите пожайлуйста
Массив заполнен случайными целыми числами из диапазона [1; 25]. Составить процедуру (или функцию), которая меняет местами i-й и j-й элементы массива. Составить процедуру (или функцию), которая удаляет k-й элемент массива (со сдвигом). Сам массив, текущее количество элементов в нем, а также введенные пользователем числа i, j и k передаются в процедуры (или функции) в качестве параметров. Выводить массив на экран следует отдельной процедурой.

program Project1;
uses
SysUtils;
type
MyArr=array[1..10000]of integer;
var
a:MyArr;
max,k,i,j:integer;

procedure Writing(var a:MyArr; const max:integer);
var
i:integer;
begin
for i:=1 to max do
a[i]:=1+random(25);
end;

procedure Print(a:MyArr; max:integer);
var
i:integer;
begin
writeln('Array:');
write('[ ');
for i:=1 to max do
write(a[i],' ');
writeln(']')
end;

procedure Del(var a:MyArr; var max:integer; const k:integer);
var
i:integer;
begin
if k>max then
begin
writeln('k>max!');
exit
end;
for i:=k to max-1 do
a[i]:=a[i+1];
dec(max);
end;

procedure Replace(var a:MyArr; const i,j:integer);
var
temp:integer;
begin
if (i>max) or (j>max) then
writeln('i>max or j>max!')
else
if i=j then
writeln('i=j!')
else
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
end;

begin
try

except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
writeln('Enter number of elements in array...');
readln(max);
Writing(a,max);
Print(a,max);
writeln('Enter element`s number for delete...');
readln(k);
Del(a,max,k);
Print(a,max);
writeln('Enter i,j positions...');
readln(i,j);
Replace(a,i,j);
Print(a,max);
writeln('Press Enter for exit...');
readln
end.