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

program zz1;

var s, t:string; / / задаем переменные строкового типа

k, p:integer; / / задаем переменную целого типа

begin

write (' введите первую строку ');

readln (s); / / вводим с клавиатуры заданную строку

write (' введите вторую строку ');

read (t); / / вводим с клавиатуры вторую заданную строку

k:=length (s);

p:=length (t);

if k > p / / проверяем, если длина первой строки больше длины второй, то

then write (' наибольшая первая строка ') / / выводим один ответ

else write (' наибольшая вторая строка '); / / иначе, выводим другой ответ

end.