Zablokowane [pascal]program chat

[kamiatus]

Mam problem/pytanie.

Otóż mam zrobić program który najpierw się przywita i nauczyciel odpowie witaj bądź cześć. Następnie program pozwoli zamówić posiłek z MC donalda.

Zamawianie będzie działać na zasadzie prostych odpowiedzi.Te odpowiedzi będą np program się spyta czy podać coś do picia a odpowiedź napisana przez nauczyciela to będzie tak/nie.

I tu zaczyna się mój problem gdyż nie bardzo wiem jak się do tego zabrać.

[Markuz]

program mcdonald;
uses crt;
var
frytki,picie: string;

begin
clrscr;
writeln('Czesc');
writeln('Chcialbys zamowic frytki? (Wpisz Tak lub Nie)');
readln(frytki);
writeln('Chcialbys zamowic takze picie? (Wpisz Tak lub Nie)');
readln(picie);
writeln('Dzieki, narazie :D');
end.

[kamiatus]

Dzięki wielkie naprowadziłeś mnie na właściwy tok myślenia xd