Pascal problem kodu

[Majkelnajt]

Witam chciałem zrobić coś w stylu chaterbota i napisałem coś takiego

 

USES CRT;

VAR
imie:string;
a:string;
b:string;
c:string;

BEGIN
clrscr;
writeln('   Jak masz na imiŠ?');
read(imie);
writeln('A ja jestem MAJKEL');
writeln('MAJKEL: I co tam u ciebie ',imie,' sˆycha†');
write('',imie,': ');
read(a);
if a='nic' then writeln('MAJKEL: Nic a jak tam  w szkole');
if a='g˘wno'or a='jajco' or a='jajko' then writeln('MAJKEL: Chyba twoje ',a,'!');
if a='wypierdalaj' or a='spierdalaj' or a='ty huju' or a='ty pojebie' or a='ty dziwko' then writeln('MAJKEL: Lepszych sˆ˘w nie masz kutasie!!!');
write('',imie,');
read(B);
if b='hujowo' or b='do dupy' or b='zjebanie' then writeln('MAJKEL: M˘wisz ',b,,'');
if b='twoje' or b='chyba twoje' or b='twoje ciulu' or b='ty kutasie' then writeln('MAJKEL: SPIERDALAJ SOUND(4000);');
readln;

 

problem pojawia się tutaj if a='nic' then writeln('MAJKEL: Nic a jak tam w szkole');

if a='g˘wno'or a='jajco' or a='jajko' then writeln('MAJKEL: Chyba twoje ',a,'!');

if a='wypierdalaj' or a='spierdalaj' or a='ty huju' or a='ty pojebie' or a='ty dziwko' then writeln('MAJKEL: Lepszych sˆ˘w nie masz kutasie!!!');

gdy chce odpowiedzieć program się wyłancza jeżeli ktoś umie poprawić z góry dzięki

 

Zamykaj kod w znaczniki [ code ], wtedy się dużo wygodniej czyta.

Marmot.

[Marmot]

Zamknij to w pętlę repeat until lub while, to chyba logiczne ;p . Tylko przerób jakoś ten kod, żebyś mógł dalej rozmawiać, bo w obecnej postaci to to raczej nie da zamierzonych wyników nawet po zamknięciu w pętlę.

 

EDIT: Chociaż nie, dałoby się, ale to sobie sam pokombinuj, bo pętle to podstawy :P .

[mike_p]

Ja bym dał na początku zmienną jakąś, np var shit:boolean; potem ustawił shit:=false; a potem wszystko wsadził w while shit=false...