Составте программу ,которая предлагает ввести с клавиатуры две строки s и t и выводит на экран наиболее длинную строку

vars1,s2: string ; d1,d2 : integer;beginwriteln ('1 stroka');read (s1);writeln ('2 stroka');read (s2);d1:=length(s1);d2:=length(s2);if d1>d2 then  writeln (s1)elsewriteln (s2);end.