Giúp mình viết chương trình Pascal khi nhập một chuỗi "cấm không được đổ rác" in ra màn hình "rác đổ được không cấm" vs ạ

program Min;
uses crt;
var st:string;
begin
   clrscr;
   repeat
   begin
      writeln('Nhap mot chuoi: '); readln(st);
   end;
   until st='Cam khong duoc do rac';
   if st='Cam khong duoc do rac' then writeln('Rac do duoc khong cam');
   readln
end.

Thật sự đề này khá là thú vị a :D 

Pascal là không được ghi Tiếng Việt có dấu nha :v.

uses crt;
var str:string;
begin
clrscr;
    repeat
        readln(str);
    until str='cam khong duoc do rac';
    if str='cam khong duoc do rac' then write('rac do  duoc khong cam');
readln;
end.