Ошибка паскаль встречено var а ожидалось

Код из первого Вашего поста, переведенный на C#:

namespace Test
{	
	class Program
	{	
		public static void Main(string[] args)
		{
			int x = "123".Length;
		}
	}
}

успешно компилируется.

Пример 1:

type
  T = class // или record
    function F() := self;
  end;

begin
  var x1: T := new T();
  //var x2: T := (new T()).F(); // Встречено '.', а ожидалось ';'
  
  var y1 := new T();
  var y2 := (new T()).F();
end.

Пример 2:

type
  T = class
  end;

function ArrF(): array of T;
begin
end;

begin
  var x1: array of T := ArrF();
  //var x2: array of T := ArrF()[0:1]; // Встречено ':', а ожидалось ')'

  var y1 := ArrF();
  var y2 := ArrF()[0:1];
end.

Пример 3:

type
  T = class // или record
    fX: T;
  end;

begin
  var x1: T := new T();
  //var x2: T := (new T()).fX; // Встречено '.', а ожидалось ';'
  
  var y1 := new T();
  var y2 := (new T()).fX;
end.

Пример 4:

type
  T = class // или record
    property X: T read nil;
  end;

begin
  var x1: T := new T();
  //var x2: T := (new T()).X; // Встречено '.', а ожидалось ';'
  
  var y1 := new T();
  var y2 := (new T()).X;
end.

То есть, проблема в том, что поле, свойство или метод не может быть вызван для созданного на лету экземпляра класса или записи, если тип переменной указан явно. То же самое касается и срезов, лишь с тем отличием, что для них требуется массив или список экземпляров класса/записи. Строку можно рассматривать как частный случай массива — массив символов. Я сделал отдельными программами тесты, чтобы удобнее было посмотреть всем желающим.

Function GetWord(s:string; var ptr:integer):string;
var
  i:integer;
begin
  i:=PosEx(‘ ‘,s,ptr);
  if i>0 then
    Result:=Copy(s,ptr,i-ptr)
  else
    Result:=Copy(s,ptr,length(s)-ptr+1);
  ptr:=i+1
end;

var
  f,g:Text;
  ib:integer;
  s,Fam,Im,Ot:string;
begin
  Assign(f,’Input.txt’);
  Reset(f);
  Assign(g,’Result.txt’);
  Rewrite(g);
  while not Eof(f) do begin
    readln(f,s);
    writeln(s); // отладочная выдача
    ib:=1;
    Fam:=GetWord(s,ib);
    Im:=GetWord(s,ib);
    Ot:=GetWord(s,ib);
    writeln(g,Im,’ ‘,Ot,’ ‘,Fam); // закомментарить строку для б)  
    writeln(Im,’ ‘,Ot,’ ‘,Fam);   // отладочная выдача
    writeln(g,Fam,’ ‘,Im[1],’.’,Ot[1],’.’); // закомментарить строку для а)
    writeln(Fam,’ ‘,Im[1],’.’,Ot[1],’.’); // отладочная выдача
  end;
  Close(f);
  Close(g)
end.

Тестовый прогон:

Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.