Нужно составить программу обработки данной строки, позволяющую выписать все знаки сравнения и все скобки, сохранив их последовательность

Теперь уже PascalABC.Net 3.2
var s:string;
i:integer;
begin
readln(s);
for i:=1 to s.Length do begin
  if ((s[i]=')') or (s[i]='(') or (s[i]='>') or (s[i]='<') or (s[i]='=')) then write(s[i]);
  end;
end.
Я надеюсь, <>=() - это все знаки, которые вы перечислили?

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('Введите строку:').MatchValues('[()=<>]').Println('')
end.

Пример
Введите строку: Пусть F(x)=3a/x+(x-1)>5x/(2-x), тогда ...
()=()>()

у сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. одним з таких є інтернет. інтернет, напевно, став займати дуже важливе місце в житті кожної людини. він стосується всього, що має відношення до будь-якої інформації або обміну нею. в інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. однак далеко не факт, що інтернет дає одну лише користь. до всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.

по-перше, є чисто фізіологічний ризик. інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. отже, інтернет змушує тебе сидіти на одному місці і не рухатися. а це загрожує виникненням проблем зі здоров’ям. тому людина не повинна поринати в інтернет з головою. потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. в іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот