Поменять местами названия самого длинного и короткого слова

[Санко]

Задан список из 20 фамилий. (array [.]of string). Поменять местами названия самого длинного и самого короткого слова.

[ZX Spectrum-128]

Что значит названия самого короткого и длинного слова? Может быть, поменять местами короткое и длинное слово?

[Санко]

да,просто не знаю как отредактировать,случайно отправила не исправив)

[Serge_Bliznykov]

var
  iMax, iShort : integer;
  s : string;

....
begin

  ...
  {поиск позиций самого длинного и самого короткого слов}  
  iMax := 1;
  iShort := 1;
  for i:=2 to 20 do begin
    if Length(A[i])>Length(A[iMax]) then iMax := i; {нашли слово длинее }
    if Length(A[i])<Length(A[iShort]) then iShort := i; {нашли слово короче }
  end;

  {поменять местами}
  s := A[iMax]; {запомнили самое длинное слов}
  A[iMax] := A[iShort];  {на место самого длинного слова поместим самое короткое слово}
  A[iShort] := s;  {на место кортокого слова поместим запомненное (самое длинное) слово}

  профит!