1создать программу которая говорит «хочу домой» пока вы не напишите «иди»

Program ddg2;

var
s: String[3];

begin
repeat
WriteLn('Хочу домой');
ReadLn(s);
until s = 'иди';
end.