Ответ:

var

 s,r:string;

 i,n,n1:integer;

begin

readln(s);

readln(r);

 for i:=1 to length(s) do

   n:=n+1;

  for i:=1 to length(r) do

   n1:=n1+1;

if n>n1 then

 writeln('Длина первой строки больше на ',n-n1,' символов')

else

 writeln('Длина второй строки больше на ',n1-n,' символов');

end.

Объяснение: