Почему не получается преобразовать тип к array[1..6] of string к array[1..6] of string?

[юля123321]

(В самом конце)
На всякий случай задание: Разработать диалоговую программную систему, позволяющую оценить время выполнения различных алгоритмов упорядочения числовых массивов. Алгоритмы сортировки оформить в виде подпрограмм.

program sravnenie;

const
  Nmax = 100000;
  Np = 10;
  Smax = 6;
  masstr: array[1..smax] of string = ('input', 'bubble', 'insert', 'choice', 'output', 'exit');

type
  Tvector = array[1..Nmax] of word;
  Tstring = array[1..Smax] of string;
  Tindex = 1..Nmax;


function menu(s: TString; ns: word): word;
var
  i: word;
  k: word;
begin
  for i := 1 to ns do
    writeln(s[i]);
  writeln('Введите номер пункта');
  readln(k);
  result := k;
end;







procedure input(var a: Tvector; n: word);
var
  na, i: word;
  c, d, e: Tvector;
begin
  randomize;
  writeln('Введите количество элементов массива');
  readln(na);
  for i := 1 to na do
    a[i] := random(10000);
  writeln('unsort.arr.');
  for i := 1 to Np do
    write(a[i]:8);
  writeln;
  c[i] := a[i];
  d[i] := a[i];
  e[i] := a[i];
end;


procedure bubble(var c: Tvector; n: word);
var
  z: Tvector;
  k: integer;
  flag: boolean;
  i, b: word;
  t1, t2, time_bubble: real;
begin
  t1 := Milliseconds;
  flag := false;
  for k := 1 to n - 1 do
    if c[k] > c[k + 1] then
      b := c[k + 1];
  c[k + 1] := c[k];
  c[k] := b;
  flag := true;
  N := N - 1;
  t2 := Milliseconds;
  time_bubble := t2 - t1;
  writeln('После сортировки пузырьком: ');
  for i := 1 to N do
    write(c[i], ' ');
  writeln; 
  z[i] := c[i];
end;



procedure insert(var d: Tvector; n: word);
var
  i, R, k: word;
  z: Tvector;
  na: word;
  t3, t4, time_insert: real;
begin
  t3 := Milliseconds;
  for i := 2 to na do
    if d[i - 1] > d[i] then
    begin
      R := d[i];
      k := k - 1;
      while (k > 0) and (d[k] > R) do
      begin
        d[k + 1] := d[k];
        k := k - 1;
      end;
      d[k + 1] := R;
      t4 := Milliseconds;
      time_insert := t4 - t3;
    end;
  writeln('После сортировки вставками: ');
  for i := 1 to N do
    write(d[i], ' ');
  writeln; 
  z[i] := d[i];
end;



procedure choice(var e: Tvector; n: word);
var
  k, j, index: word;
  min, i: word;
  z: Tvector;
  t5, t6, time_choice: real;
begin
  t5 := Milliseconds;
  for k := 1 to n - 1 do
  begin
    min := e[k];
    index := k;
    for j := k + 1 to n do
      if e[j] < min then
      begin
        min := e[j];
        index := j;
      end;
    e[index] := e[k];
    e[k] := min;
    t6 := Milliseconds;
    time_choice := t6 - t5;
  end;
  writeln('После сортировки выбором: ');
  for i := 1 to N do
    write(e[i], ' ');
  writeln; 
  z[i] := e[i];
end;


procedure output(var a, z: Tvector; Table: word);
var
  na, i: word;
  time_choice, time_insert, time_bubble: real;
begin
  writeln('unsort_arr:');
  for i := 1 to Np do
    write(a[i]:8);
  writeln;
  
  
  
  
  case Table of
    1: 
      begin
        writeln(masstr[2]);
        writeln('Время выполнения ', time_bubble, ' ms');
      end;
    2: 
      begin
        writeln(masstr[3]);
        writeln('Время выполнения ', time_insert, ' ms');
      end;
    3: 
      begin
        writeln(masstr[4]);
        writeln('Время выполнения ', time_choice, ' ms');
      end;
    5: 
      begin
        writeln('Тип сортировки', '  ', 'Время работы');
        writeln(masstr[2], '       ', (time_bubble):10,  'ms');
        writeln(masstr[3], '       ', (time_insert):10,  'ms');
        writeln(masstr[4], '       ', (time_choice):10,  'ms');
      end;
  end;
  
  begin
    write('sort_arr:');
    for i := 1 to Np do
      write(z[i]:8);
    writeln;
  end; 
end;




var
  k, i: word;

begin
  
  repeat
    k := menu(masstr, Smax);
    case k of
      1: input(a, n);
      2: bubble(c, n);
      3: insert(d, n);
      4: choice(e, n);
      5: output;
    end;
  until k = Smax;
  
end.

[Аватар]

masstr: array[1..smax] of string = ('input', 'bubble', 'insert', 'choice', 'output', 'exit');
...
function menu(s: TString; ns: word): word;
...
k := menu(masstr, Smax);

array[1..smax] of string совсем не TString
Так попробуй

k := menu(TString(masstr), Smax);

[WorldMaster]

аа.... мысли вслух...

[evg_m]

Tstring =array[1..Smax] of string;

const
masstr: array[1..Smax] of string Tstring = ('input', 'bubble', 'insert', 'choice', 'output', 'exit');

[юля123321]

Пишет: Неизвестное имя Tstring

[юля123321]

Program1.pas(199) : Невозможно явно преобразовать тип array [1..6] of string к типу array [1..6] of string

[Аватар]

Поставь вперед инструкцию с описанием типа

[Serge_Bliznykov]

Сообщение от юля123321

Program1.pas(199) : Невозможно явно преобразовать тип array [1..6] of string к типу array [1..6] of string

Юля, а почему Вы проигнорировали пост #4 ?!

evg_m предложил простое и корректное исправление вашей проблемы.

const
  Nmax = 100000;
  Np = 10;
  Smax = 6;

type
  TVector = array[1..Nmax] of word;
  TString = array[1..Smax] of string;
  TIndex = 1..Nmax;

const
  masstr: TString = ('input', 'bubble', 'insert', 'choice', 'output', 'exit');

[юля123321]

попробовала так сделать. после этого отправило пост 5.

[юля123321]

Сообщение от Аватар

Поставь вперед инструкцию с описанием типа

Тогда пишет Program1.pas(3) : Неизвестное имя 'Nmax'