Даны две символьные строки. определить, в какой из них больше символов и насколько. оформить ввиде программы в паскале. , .

// PascalABC.NET 3.0, сборка 1088
var
  s1,s2:string;
  d:integer;
begin
  Write('Первая строка: '); Readln(s1);
  Write('Вторая строка: '); Readln(s2);
  d:=Length(s1)-Length(s2);
  if d>0 then Writeln('Первая строка длиннее на ',d)
  else
    if d<0 then Writeln('Вторая строка длиннее на ',-d)
    else Writeln('Строки имеют равную длину')
end.

Pascal abc
Проверка:
введите строку 1: 12345
введите строку 2: 123
в 1ой строке символов больше на 2