Что не так с массивами ? помогите понять ошибку

[GreenFox]

В процессе изучения фри паскаля на лазарусе процесс встал на первой же задаче с массивами.

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads, crt, FileUtil
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp ,CRT ,FileUtil ,LCLProc ,LConvEncoding;
  { you can add units after this }
   var
    name: array[1..50] of string[30];
    tel: array[1..50] of string[3];
    k: Integer;
    s : string;
    phone: string[3];

 begin
     for k:=1 to 50 do
      begin
        writeln(UTF8ToConsole('Введите фамилию'));
        readln (name[k]);
        writeln(UTF8ToConsole('ведите номер тедлефона'));
        readln (tel[k]);
        tel[k]:= Trim(tel[k]);
      end;
     writeln(UTF8ToConsole('ввод даных закончен'));
     writeln(UTF8ToConsole('Для поиска абонента введите '));
     writeln(UTF8ToConsole('номер его телефона '));
     writeln(UTF8ToConsole('для выхода из программы '));
     writeln(UTF8ToConsole('введите "***"'));
     phone:='';
     while phone <> '***' do
       begin
         writeln(UTF8ToConsole('Введите номер телефона '));
         readln(phone);
         for k:=1 to 50 do
          if tel [k] = phone then
            writeln(UTF8ToConsole('фамилия  этого абонента'), name[k]);
       end;


   end;

выдаёт следующую ошибку
ConsoleLoginTest.pas(61,17) Error: Can't take the address of constant expressions

Что компилятор от меня хочет ?

_______
код на форуме нужно форматировать тегами
Модератор

[Человек_Борща]

Наверное дело в том что мтрока ограничена 30 знаками, а readln это никак не проконтролирует.

читайте в строку, проверяйте размер прочитанного, записывайте в массив.

readln(s);
if (Length(s) < 31) then
name[k] := s;

[Serge_Bliznykov]

я бы переменную name переименовал.
Похоже компилятор путается, где массив, а где свойство с именем name

[GreenFox]

readln(s);
if (length(s) < 31) then
name[k]:= s;

ошибка
ConsoleLoginTest.pas(63,9) Error: Argument can't be assigned to
ConsoleLoginTest.pas(63,19) Error: Incompatible types: got "AnsiString" expected "Char"
Он же врёт! я же указывал его как Стринг с чего вдруг он чар ожидает ?

Сообщение от Serge_Bliznykov

я бы переменную name переименовал.
Похоже компилятор путается, где массив, а где свойство с именем name

СПасибо действительно помогло

[Serge_Bliznykov]

отлично. Пожалуйста.

тему закрываем?

[Аватар]

я бы переменную name переименовал

Нежданка. А чего оно так, консолька, объектов нет. Особенность лазаря? Специально делфийскую консольку сделал, съело не глядя

[Stilet]

Особенность лазаря

Ерунда какая-то. Мой Лазарус нормально код ТС скомпилил и выполнил.

GreenFox

Какая версия Фрипаскаля и Лазаря?