1)Даны две строки. Вывести на экран строку большей длины. 2)Дана строка символов. Определить, есть ли в ней хотя бы одна буква «с». нужно написать программы в паскаль, с использованием if then else решите пожалуйста,СРОЧНО НАДО

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s1:=ReadlnString(1>);
  var s2:=ReadlnString(2>);
  if s1.Length>s2.Length then Writeln(s1) else Writeln(s2)
end.


// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadlnString(>);
  // Ниже в Pos указана русская "с" !!!
  if Pos(с,s)>0 then Writeln(Буква с есть)
  else Writeln(Буквы с нет)
end.