Code:
Program RandomDebugTalker;
var
I : integer;
procedure Talk;
begin
I := random(7);
case I of
0 : Writeln('hi');
1 : Writeln('bored');
2 : Writeln('random');
3 : Writeln('gotcha');
4 : Writeln('pizza');
5 : Writeln('wassup');
6 : Writeln('wazzup');
end;
end;
begin
repeat
Talk;
wait(1000)
until(false)
End.
All you were missing was a integer for the I in the random,
The end; after the procedure and After wait(1000) there is no semicolon.
and after every repeat needs an until
until(false) will keep repeating forever.
There are other untils like variables and other stuff.