Сортировка выбором - вывести фамилии студентов в алфавитном порядке

program laba_6;
const n=5;
Type student=record;
 Name:String;
 end;
// procedure SortSelect (var arr: array[1..n] of student; n:integer);  // процедура сортировки выбора
var     arr: array[1..n] of student;
        i,j,min,ind:integer; // объявление переменных
        t,k:string;
begin
writeln('Заполнение массива.');
for i:=1 to n do begin
  write('Введите фамилию студента:  ');
  readln(arr[i].name);
  writeln;
  end;
  i:=1;
  t:=arr[i].name;
for i:=1 to n-1 do begin // i указывает на 1 позицию
for j:=i+1 to n do begin // j указывает на 2 позицию
if arr[j].name<=t then
begin
t:=arr[j].name; // присваиваем минимум
ind:=j;
end;
end;
if arr[i].name>t then begin
k:=arr[i].name; // если i больше мин то мы меняем местами
arr[i]:=arr[ind]; // возвращаем на позицию arr ind
arr[ind].name:=k;
end;
end;
for i:=1 to n do begin
  write(arr[i].name);
  writeln;
  end;
end.

const n=5; // константа
var     arr: array[1..n] of string; // объявление переменных
        i,j,ind:integer;  // переменные типа integer
       min, t,k:string;   // переменные типа string
begin   // начало подпограммы заполнения массива
writeln(' Заполнение массива ');
for i:=1 to n do begin // заполнение массива arr[i]
  write('Введите фамилию студента:  ');
  readln(arr[i]); // запись введенных данных в массив
  writeln;
  end; // конец подпрограммы
  min:='яюэьыъщшчцхфутсрпонмлкйизжёедгвбф';  // минимум из русских букв
for i:=1 to n-1 do begin // i указывает на 1 позицию
for j:=i+1 to n do begin // j указывает на 2 позицию
     if arr[j]<min then  // если j меньше минимума
     begin
     min:=arr[j]; // присваиваем минимум
     ind:=j;      // запоминаем позицию
     end;
end;
if arr[i]>min then begin // если i больше мин то мы меняем местами
k:=arr[i];
arr[i]:=arr[ind]; // возвращаем на позицию arr ind
arr[ind]:=k;
min:='яюэьыъщшчцхфутсрпонмлкйизжёедгвбф';
end;
end;
for i:=1 to n do begin // вывод массива
  write(arr[i]);
  writeln;
  end;
end.