Вывести результат в переменную

Program file2_3;
Var s, v: string;
begin
  var Path1:= 'D:\base.txt';
  
  var lines := ReadAllLines(Path1);
  
  writeln('Введите сид');
  readln(s);
  
 
  lines
  .Where(l->l.StartsWith(s+':'))
  .Select(l->l.ToWords)
  .Select(l->l[Random(l.Length)])
  
  .PrintLines;
 
  
end.

//program нафиг не сдалось, оно ничего не делает
begin
  var Path1:= 'D:\base.txt';
  
  var lines := ReadAllLines(Path1);
  
  var s := ReadlnString('Введите сид:');//переменную надо объявлять не в начале программы а прямо перед присваением
  s += ':';//добавить ":" надо сразу, иначе для каждого сравнения будет создавать новую строку
  
  var v := //у переменной v тип не string а sequence of string, потому что строк начинающихся с s может быть несколько
    lines  //добавьте .First чтоб получить первую подходящую строку
    .Where(l->l.StartsWith(s))
    .Select(l->l.ToWords)
    .Select(l->l[Random(l.Length)]);
  
  
end.

var a := Arr(1,2,3);
var s1 := a.Where(i->i mod 2 = 0);
var s2 := s1.Select(i->i*i);
var s3 := s2.Single;
s3.Print;

var a := Arr(1,2,3);
var s1 := a.Where(i->i mod 2 = 0).Select(i->i*i);
var s3 := s1.Single;
s3.Print;

Arr(1,2,3).Where(i->i mod 2 = 0).Select(i->i*i).Single.Print;

Arr(1,2,3)
.Where(i->i mod 2 = 0)
.Select(i->i*i)
.Single
.Pring;