Var s, t: string; begin 5 :=' монитор' ; writeIn (length(s)); writeIn (pos('o',s)); delete(s, 3, 2); writeln (s);

Вы не объявили переменные 's' и 't', поэтому код не будет компилироваться. Начните с объявления переменных:

var s, t: string; begin s := 'монитор'; writeln(length(s)); writeln(pos('о', s)); delete(s, 3, 2); writeln(s); end.