Проверка кода Делфи. Динамический кольцевой список

[agrestid]

Помогите пожалуйста - проверьте код следующей программы. Выдает ошибку 105. Программа должна обеспечивать ввод строкового массива либо путем чтения из файла либо ручным вводом. сортировать этотт массив по алфавиту двумя сортировками и записывать в новый файл

[Stilet]

while (ch <> V) and (ch <> Q) do

Что такое "V"?
Надеюсь "V" - не значит Вендета?

[agrestid]

Это символ,который предлагается ввести,чтобы введенный массив отсортировался сортировкой простого выбора

[p51x]

а где кавычки, если это символ?

[Stilet]

agrestid

Пора тебе озвучить задание препода
Твой код увы никуда не годен.

[agrestid]

Так задание я написал в первом сообщении.
Я не мог его нормально отладить из-за этой 105-ой ошибки. Я не владею всеми тонкостями работы с файлами. Буду рад объяснениям)

[Stilet]

А-а-а... Ну если будет завтра время, попробую твой код перестроить по правильному, если кто-то раньше этого не сделает )
Сегодня уже зазь.

[agrestid]

Вот в том-то и дело,что сдача завтра:D
Что в нем конструктивно неправильного?(исключая мелкие синтаксические ошибки)

[temaps]

Глупые ошибки убрал. В логике кода не разбирался. Если будут ошибки в логике пиши какие

uses
  SysUtils;

type
  stroki = array of string;

var
  a, o: Integer;
  F: TextFile;
  g: string;
  ch:char;
  arr: stroki;

  //////////////////////////////////

procedure Vvod;
var
  i: Integer;
  S: string;

begin

  Writeln('vvedite stroki');

  i := 0;
  repeat
    Readln(S);
    if S <> '' then
    begin
      SetLength(arr, i + 1);
      arr[i] := S;
      i := i + 1;
    end;
  until
    S = '';

end;
///////////////////////////////////////////////////




procedure WriteToFile;
var
  Len: LongInt;
  h, i: Integer;
begin
Len := Length(arr[h]);
AssignFile(f, 'out.txt');
rewrite(f);
for i:=0 to Len-1 do begin
writeln(f,arr[i]);
 end;
 CloseFile(f);


end;

///////////////////////////////////////////////////

procedure chtenie;
var

  //ar: array  of string;
  i, j, w: integer;
begin
  AssignFile(f, '1.txt'); // назначаем имя f файлу по адресу
  Reset(f); //открываем файл для чтения
  i := -1;
  while not Eof(f) do
  begin //пока не окончился файл
    Inc(i); //увеличиваем i на один
    SetLength(arr, i + 1);
    ReadLn(f);
  end;
  CloseFile(f);
end;
////////////////////////////////////

procedure qSort;
// Если раскомментировать строки кода, начинающиеся с "//",
// то получится реализация с одной рекурсивной ветвью, в которой
// меньшая часть разделённого массива сортируется рекурсивным вызовом,
// а бо'льшая - в цикле, что гарантирует глубину рекурсии не более lg(N)
// Вложенная функция сортировки для рекурсивного вызова
// Нужна, чтобы не передавать в вызов основной функции границы массива
  procedure sort(low, high: integer);
  var
    i, j: integer;

    m, B: string;
  begin
    // repeat
     i:=low;
     j:=high;
    m := arr[(i + j) div 2]; // Взятие среднего опорного элемента
    repeat
      while arr[i] < m do
        Inc(i); // изменить порядок сортировки можно
      while arr[j] > m do
        Dec(j); // поменяв >< в этих двух строках
      if i <= j then
      begin
        B := arr[i];
        arr[i] := arr[j];
        arr[j] := B;
        Inc(i);
        Dec(j);
      end;
    until i > j;
    // if (j - low) < (high - i) then begin
    if low < j then
      sort(low, j);
    // low := i;
    //   end
    // else begin
    if i < high then
      sort(i, high);
    // high := j;
    // end;
    //until low = high;
  end;
begin
  sort(0, High(arr));
end;
//////////////////////////////////////////

procedure Vsort;
var
  i, j, min: integer;
  t: string;

begin
  for i := 0 to high(arr) - 2 do
  begin
    min := i;
    for j := i + 1 to high(arr) - 1 do
      if arr[min] > arr[j] then
        min := j;
    if min <> i then
    begin
      t := arr[i];
      arr[i] := arr[min];
      arr[min] := t;
    end;
  end;
end;

begin

  Writeln('viberite');
  Writeln('0-ruchoi vvod');
  Writeln('1-chtenie iz gotovogo faila');
  Readln(o);
  while (o <> 1) and (o <> 0) do
  begin
    Writeln('Comand not found');
  end;
  if o = 0 then
    Vvod;
  if o = 1 then
    chtenie;
      writeln('viberite metod sortirovki');
      writeln('V-sortirovka viborom');
      writeln('Q-bistraya sortirovka');
      readln(ch);
      while (ch <> 'V') and (ch <> 'Q') do
  begin
    Writeln('Comand not found');
  end;
  if ch = 'V' then
    Vsort;
  if ch = 'Q' then
    qSort;
  WriteToFile;



end.

[agrestid]

Сдача состоялась
Но дали дом задание-померить время выполнения каждой процедуры сортировки.