Помогите пожалуйста
Составьте программу,которая предлагает ввести  с клавиатуры две строки s и t и выводит на экран более длинную строку.
Пример ввода:
школа  (Строка s)
ученик (Строка t)
Пример вывода :
ученик 

var s,t:string;beginwrite('Введите первую строку: ');readln(s);write('Введите вторую строку: ');readln(t);write('Ответ: ');if length(s)>length(t) then  writeln(s)  else writeln(t);end.