Исправление ошибки (преобразование string=>integer) + оптимизация кода - Pascal ABC

Формулировка задачи:

Всем привет. Необходимо исправить ошибку (в 26 строке преобразование типа string к типу integer). Так же по возможности прошу преобразовать, упростить код.

uses crt;
var
names:array[1..20] of string;
i,n,k:integer;
name:string;
// Выбор первого игрока
function vybor(i:integer):string;
 Begin
  randomize;
   i:=random(n);
   name:=names[i];
   vybor:=name;
    end;
// Тело
begin
// Количество игроков
 write('Количество игроков: ');
  readln(n);
// Имена
 writeln('Введите имена игроков');
  for i:=1 to n do
   begin
    write(i,'. ');
     readln(names[i]);
     end;
 write(vybor(name));
end.

ЗАРАНЕЕ БЛАГОДАРЮ!!!

Решение задачи: «Исправление ошибки (преобразование string=>integer) + оптимизация кода»

Листинг программы

var
names:array[1..20] of string;
i,n,k:integer;
name:string;
 
// Тело
begin
  randomize;
// Количество игроков
 write('Количество игроков: ');
  readln(n);
// Имена
 writeln('Введите имена игроков');
  for i:=1 to n do
   begin
    write(i,'. ');
     readln(names[i]);
     end;
 write(names[random(n+1)]);
end.

Объяснение кода листинга программы

Объявляются переменные:
- names - массив из 20 строк (возможно, используется для хранения имен игроков)
- i, n, k - целочисленные переменные (используются для цикла и генерации случайного числа)
- name - строковая переменная (возможно, используется для хранения текущего имени игрока)
Запрашивается количество игроков и сохраняется в переменной n.
Запрашиваются имена игроков и сохраняются в массиве names.
Выводится имя игрока с случайным индексом (возможно, используется для тестирования или демонстрации работы программы).