Ввести две строки и проверить посимвольно совпадают ли они.

Var
  s1,s2: String;
  f: Boolean;
  i: Byte;
BEGIN
f:=True;
Write('Введите 1 строку: ');
Readln(s1);
Write('Введите 2 строку: ');
Readln(s2);
If Length(s1)=Length(s2) Then
begin
  For i:=1 to Length(s1) do
  If s1[i]<>s2[i] Then
  begin
    f:=False;
    Break
  end;
end
Else
f:=False;
Writeln(f);
Readln
END.

Или

Var
  s1,s2: String;
BEGIN
Write('Введите 1 строку: ');
Readln(s1);
Write('Введите 2 строку: ');
Readln(s2);
Writeln(s1=s2);
Readln
END.