блок схема

uses
  CRT;
 
var
  i, n, j, imax, k: byte;
  mas, mas2: array[1..100] of integer;
 
begin
  randomize;
  repeat
    write('Введите кол-во элементов: ');
    readln(n);
    if not (n in [1..100]) then writeln('Вы не верно ввели размерность. Повторите ввод.');
  until n in [1..100];
  j := 0;
  for i := 1 to n do
  begin
    mas[i] := random(10) - 3;
    write(mas[i]:3);
    if mas[i] < 0 then
    begin
      inc(j);
      mas2[j] := mas[i];
    end;
  end;
  writeln;
  if j <> 0 then
  begin
    repeat
      write('Введите k: ');
      readln(k);
      if not (k in [1..j]) then writeln('Вы не верно ввели k. Повторите ввод.');
    until k in [1..j];
    imax := 1;
    for i := 2 to k do
      if mas2[i] > mas2[imax] then imax := i;
    writeln;
    write('MAX[', imax, ']:=', mas2[imax]);
  end
  else write('Массив пуст.');
end.