Задан список из десяти городов. Поменять местами названия самого длинного и самого короткого слова — Pascal(Паскаль)

var
a:array[1..10]of string;
i,nmin,min,max,nmax:integer;
t:string;
begin
writeln('vvedite nazvaniya gorodov');
for i:=1 to 10 do
begin
write('gorod N',i,'=');
readln(a[i]);
end;
writeln('spisok gorodov');
for i:=1 to 10 do
writeln(i,' ',a[i]);
nmin:=1;
nmax:=1;
min:=length(a[1]);
max:=length(a[1]);
for i:=1 to 10 do
begin
if length(a[i])<min then 
  begin
  min:=length(a[i]);
  nmin:=i;
  end;
if length(a[i])>max then 
  begin
  max:=length(a[i]);
  nmax:=i;
  end;
end;
t:=a[nmax];
a[nmax]:=a[nmin];
a[nmin]:=t;
writeln('novyj spisok gorodov');
for i:=1 to 10 do
writeln(i,' ',a[i]);
readln;
end.