Программа в Лазарус

Нужно сделать сохранение программы массива в формате tsv что бы сохранялся заданный массив и фнкции Max и Imax.
program Project1;
type
MYArray = array of integer;
var
A: MyArray;
Max,Imax, i, n: integer;
function GetMaxIndex(a: MyArray): integer;
var
i: integer;
begin
Imax:=1;
Max:=A[1];
for i := Low(a) to High(a) do
if a[i] > a[Result] then
Result := i;
end;
begin
Write('Razmer massiva N: ');
ReadLn(n);
WriteLn('Vvedite elementy massiva: ');
SetLength(a, n);
for i := Low(a) to High(a) do
Read(A[i]);
Imax := GetMaxIndex(a);
WriteLn('Max = ', a[Imax]:2);
WriteLn('Imax = ', (Imax + 1):2);
ReadLn();
ReadLn();
end.