Найти первый отрицательный элемент в массиве

program pr1;
uses crt;
const WG=100;
type tmasi=array[1..WG] of integer;
var a:tmasi; n,kl:byte;
(*процедура ввода*)
procedure pr_wod(kl:byte; var n:byte; var mas:tmasi);
var i:byte;
begin
   if n=0 then begin
                  writeln('размерность массива');
                  readln(n);
               end;
   (*контроль значения переменной*)
   while n>WG do
   begin
     writeln('неверно ввёл попробуй ещё раз');
     readln(n);
   end;
     if kl=1 then randomize;
     for i:=1 to n do
     case  kl of
     1:mas[i]:=random(201)-100;
     2:begin
         writeln('введи ',i,' элемент массива');
         readln(mas[i]);
       end;
     end;
end;
(*процедура вывода*)
procedure pr_out(n:byte; mas:tmasi);
var i:byte;
begin
  for i:=1 to n do
  write(mas[i]:6);
  writeln;
end;
(*функция нахождения отр. элемента*)
function f_otr(n:byte; mas:tmasi):byte;
var i:byte;
begin
  f_otr:=0;
  for i:=1 to n do
  if mas[i]<0 then begin
                     f_otr:=i;
                     break;
                   end;
end;
(*функция нахождения суммы отр. элементов массива*)
function f_sum(n:byte; mas:tmasi):integer;
var i:byte; sum:integer;
begin
  sum:=0;
  for i:=1 to n do
  if mas[i]<0 then sum:=sum+mas[i];
  f_sum:=sum;
end;
(*процедура работы с отрицательными элементами*)
procedure pr_otr_el(n:byte;var a:tmasi);
var i,j,pos:byte; sum:integer;
begin
  pos:=f_otr(n,a);
  if pos=0 then begin
                  writeln('В массиве отсутствуют отрицтельные элементы');
                  exit;
                end;
  sum:=f_sum(n,a);
  for i:=1 to pos-1 do
  a[i]:=sum;
  writeln('Первый отрицательный элемент- ',a[pos]);
  writeln('Сумма отрицательных элементов- ',sum);
  writeln('Массив переформирован');
  writeln;
end;
begin
  while true do
  begin
    repeat
    writeln('1- создать массив из целых чисел;');
    writeln('2- вывод элементов одномерного массива;');
    writeln('3- работа с отрицательными элементами массива;');
    writeln('4- конец работы.');
    readln(kl);
    until kl in [1..4];
    case kl of
    1:begin
        pr_wod(2,n,a);
        ClrScr;
        writeln('Массив введен');
      end;
    2:begin
      if n=0 then begin
                    n:=20;
                    pr_wod(1,n,a);
                  end;
      writeln('Массив');
      pr_out(n,a);
      end;
    3:begin
          pr_otr_el(n,a);
          writeln('Пункт выполнен');
          writeln;
      end;
    4:exit;
    end;
  end;
end.

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var v:mas;var x:byte);
var i:byte;
begin
repeat
write('Размер массива =');
readln(x);
until x in [1..nmax];
writeln('Введите ',x,' элементов массива:');
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(v[i]);
 end;
write('Нажмите Enter...');
readln;
end;
procedure Vyvod(var v:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
write(v[i],' ');
writeln;
writeln;
write('Нажмите Enter...');
readln;
end;
procedure PervOtr(v:mas;x:byte; var p:integer;var i1:byte);
var i:byte;
begin
i1:=0;
for i:=x downto 1 do
if v[i]<0 then
  begin
   p:=v[i];
   i1:=i;
  end;
if i1=0 then writeln('В масиве нет отрицательных элементов')
else writeln('Первый отрицательный элемент=',p,' его номер=',i1);
write('Нажмите Enter...');
readln;
end;
procedure Summa(v:mas;x:byte;var sm:integer);
var i:byte;
begin
sm:=0;
for i:=1 to x do
if v[i]<0 then sm:=sm+v[i];
writeln('Сумма отрицательных=',sm);
write('Нажмите Enter...');
readln;
end;
procedure Zamena(var v:mas;x:byte;sm:integer;i1:byte);
var i:byte;
begin
for i:=1 to i1-1 do
v[i]:=sm;
Vyvod(v,x);
end;
var a:mas;
    n,ip:byte;
    p,sm:integer;
    c:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-ввод массива');
writeln('2-вывод массива');
writeln('3-первый отрицательный элемент');
writeln('4-сумма отрицательных');
writeln('5-замена элементов до первого отрицательного суммой');
writeln('другое - выход');
readln(c);
case c of
'1':Vvod(a,n);
'2':begin
    writeln('Исходный массив:');
    Vyvod(a,n);
    end;
'3':PervOtr(a,n,p,ip);
'4':Summa(a,n,sm);
'5':begin
    writeln('Массив после замены элементов:');
    Zamena(a,n,sm,ip);
    end;
else exit;
end;
until not(c in ['1'..'5']);
end.