Сформировать массив строк. Удалить из него самую короткую строку

var
  mas: array[1..100] of string;
  min, n, i, j: integer;
  kor: string;
 
begin
  repeat
    write('Введите количество строк, не более 50 n: ');
    readln(n);
  until n in [1..50];
  writeln('Введите ', n, ' строк: ');
  for i := 1 to n do
    readln(mas[i]);
  
  min := length(mas[1]);
  kor := mas[1];
  for i := 2 to n do
    if length(mas[i]) < min then
    begin
      min := length(mas[i]);
      kor := mas[i];
    end;
  writeln('Короткая строка: ', kor);
  {удаляем из массива короткие строки}
  i := 1;
  while i <= n do
  begin
    if mas[i] = kor then //короткая строка!
    begin
      for j := i to n - 1 do
        mas[j] := mas[j + 1];
      n := n - 1;
    end
    else 
      i := i + 1;
  end;
  writeln('Измененный массив:');
  for i := 1 to n do
    write(mas[i], ' ');
end.