Работа с массивом

const
  max = 50;
 
type
  MyArr = array[1..max] of real;
 
var
  a: MyArr;
{процедура ввода массива}
procedure Writing(var a: MyArr);
var
  i: integer;
begin
  for i := 1 to max do
    a[i] := sin(i);
end;
{процедура вывода массива}
procedure Print(a: MyArr; ch: char);
var
  i: integer;
begin
  writeln('Массив ', ch, ':');
  for i := 1 to max do
    write(a[i]:8:2);
end;
{функция нахождения минимального по модулю}
function FindMin(a: MyArr): integer;
var
  i, tempi: integer;
  min: real;
begin
  min := abs(a[1]);
  for i := 2 to max do
    if abs(a[i]) < min then
    begin
      min := abs(a[i]);
      tempi := i
    end;
  Result := tempi;
end;
{функция сумма модулей}
function Summ(a: MyArr): real;
var
  i: integer;
  res: real;
  fl: boolean;
begin
  res := 0;
  fl := false;
  for i := 1 to max do
  begin
    if fl then
      res := res + abs(a[i]);
    if a[i] < 0 then
      fl := true;
  end;
  Result := res;
end;
{процедура сжатия массива}
procedure Zip(var a: MyArr);
var
  i, j, k, m: integer;
begin
  writeln('С какого значения будет сжимать:');
  repeat
    readln(i);
    if (i < 1) or (i > max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if i = 0 then
      exit
  until
  (i >= 1) and (i <= max);
  writeln('По какое значение будем сжимать:');
  repeat
    readln(j);
    if (j < 1) or (j > max) then
      writeln('Данное значение выходит за границы вашего массива! Попробуйте снова или введите 0 для выхода.');
    if j = 0 then
      exit
  until
  (j >= 1) and (j <= max);
  for k := 1 to max - j do
  begin
    a[i + k - 1] := a[j + k];
    a[j + k] := 0;
  end;
  a[j] := 0
end;
 
{основная программа}
begin
  Writing(a);
  Print(a, 'A');
  writeln('Минимальный среди модулей элемент a[', FindMin(a), ']=', a[FindMin(a)]);
  writeln('Сумма модулей после первого отрицательного: ', Summ(a));
  Zip(a);
  Print(a, 'A')
end.