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

У Вас при равной длине строк будет сообщение: "во 2ой строке символов больше на 0"

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

// PascalABC.NET 3.0, сборка 1088var  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.