Поменять местами слова с максимальной и минимальной длиной

Program invert;
Uses CRT;
const N = 10;
Var
  a : Array [1..N] of String;
  i : Integer;
  stroka: String;
  imax,imin : integer;
begin
  ClrScr;
  WriteLn(' Задача: Поменять местами слова с максимальной и');
  WriteLn(' минимальной длинной при условии, что такие слова единственные.');
  WriteLn;
  WriteLn(' Введите 10 слов от 3 до 8 символов:');
  For i:= 1 to N do
    Begin
    Write(' ',i,')');
    ReadLn(a[i]);
    End;
  WriteLn;
  WriteLn(' Заменяем слова с максимальной и минимальной длинами.');
  WriteLn(' При условии, что такие слова единственные.');
  imin:=1;
  imax:=1;
  For i:= 1 to N do
    begin
      if length(a[i]) > length(a[imax]) then imax:=i;
      if length(a[i]) < length(a[imin]) then imin:=i;
    end;
{вывести исходный массив слов}
  for i:= 1 to 10 do
    write(a[i],' | ');
  Writeln;
{проверка, что найденные длины (мин. и максимальная) - ЕДИНСТВЕННЫЕ в массиве}
  for i:=1 to N do begin
    if (i<>imax)  and (Length(a[i])=Length(a[imax])) then
    begin
      WriteLn('слово с максимальное длиной НЕ единственное!');
      WriteLn('совпали длины слов "'+a[i]+'" и "'+a[imax]+'".');
      WriteLn('Всё. завершаем работу программы...');
      Readln;
      Halt(1)
    end;
    if (i<>imin)  and (Length(a[i])=Length(a[imin])) then
    begin
      WriteLn('слово с минимальной длиной НЕ единственное!');
      WriteLn('совпали длины слов "'+a[i]+'" и "'+a[imin]+'".');
      WriteLn('Всё. завершаем работу программы...');
      Readln;
      Halt(1)
    end;
  end;
{вот, собственно, поменять слова местами}
  stroka := a[imax];
  a[imax] := a[imin];
  a[imin] := stroka;
{соберём массив в результирующую строку}
  stroka := '';
  For i:= 1 to N do
    stroka:= stroka + a[i]+' ';
  writeln(' ПОСЛЕ ПРЕОБРАЗОВАНИЯ:');
  writeln(stroka);
  WriteLn(' Для выхода из программы нажмите Enter.');
  ReadLn;
end.