Вам даны две строки s и t, определить длину наибольшей строки

// PascalABC.NET 3.0, сборка 1088
begin
  var s:=ReadlnString('Введите строку s: ');
  var t:=ReadlnString('Введите строку t: ');
  var d:=s.Length-t.Length;
  if d>0 then Writeln('Первая строка длиннее')
  else
    if d<0 then Writeln('Вторая строка длиннее')
    else Writeln('Строки одной длины')
end.