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

Var
s1,s2: string ;
 d1,d2 : integer;
begin
writeln (1 stroka);
read (s1);
writeln (2 stroka);
read (s2);
d1:=length(s1);
d2:=length(s2);
if d1gt;d2 then  writeln (s1)
else
writeln (s2);
end.