где ошибка?

[Degster]

правда ли,что а="строка" и b<>"строка"

uses crt;
var rez:boolean;
a,b:string;
begin clrscr;
a:='страна';
b:='строка';
rez:=(a=('строка')) and (b<>('строка'));
writeln;
readkey;
end.


программа должна выводить "false" или "true"
в данном случае "false".

[GetMax]

программа должна выводить "false" или "true"

Так у вас результат нигде не выводится.

writeln(Rez);