Сортировка методом Шелла списка студентов группы

var
  f1: text;
  str, x: string[255];
  i, j, k: byte;
  a:char;
  f: boolean;
  arr,mas: array[1..50] of string;
 
begin
  writeln('Данная программа сортирует по алфавиту методом Шелла буквы имени и фамилии');
  writeln('Введите название файла для обработки: ');
  writeln('Вводите название файла вместе с расширением .txt');
  
  repeat
    f := true;
    readln(str);
    f := FileExists(str);      
    if not f then writeln('Файл не найден. Повторите ввод');
  until f;
  
  assign(f1, str);
  reset(f1);
  while(not eof (f1)) do 
  begin
    inc(k);
    readln(f1, arr[k]);
  end;
   
    for i := 2 to k do
    begin
      x := mas[i];
      j := i - 1;
      while (j >= 1) and (x < mas[j]) do 
      begin
        mas[j + 1] := mas[j];
        j := j - 1;
      end;
      mas[j + 1] := x;     
    end;
 
  
  writeln;
  Writeln('Отсортированные данные:');
  for i := 1 to k do writeln(mas[i]);
  writeln;
  readln;
end.

for i:=1 to k do
 begin
  mas[i]:='';
  for j:=1 to length(arr[i]) do
  mas[i]:=mas[i]+Upcase(arr[i][j]);
 end;

a := m[i];
b := m[j];
a := upcase(a);
b := upcase(b);
if a > b
  then begin
    t := m[i];
    m[i] := m[j];
    m[j] := t
  end;