First, please work on standards:
SCAR Code:
program scar;
{.include SRL/SRL.scar}
const
line1 = 'text 1';
line2 = 'text 2';
line3 = 'text 3';
line4 = 'text 4';
line5 = 'text 5';
var
spokenlines: integer;
procedure linea;
begin
Writeln(line1);
spokenlines:=spokenlines+1;
end;
procedure lineb;
begin
Writeln(line2);
spokenlines:=spokenlines+1;
end;
procedure linec;
begin
Writeln(line3);
spokenlines:=spokenlines+1;
end;
procedure lined;
begin
Writeln(line4);
spokenlines:=spokenlines+1;
end;
procedure linee;
begin
Writeln(line5);
spokenlines:=spokenlines+1;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' spoke ' + IntToStr(spokenlines) + ' Lines' + ' ');
Writeln('---------------------------------------------');
Writeln('[]========================================[]');
end;
begin
ClearDebug;
SetupSRL;
repeat
linea;
wait(1000 + random(750));
lineb;
wait(1000 + random(750));
linec;
wait(1000 + random(750));
lined;
wait(1000 + random(750));
linee;
wait(1000 + random(750));
until(IsFKeyDown(5)); //Please no endless loops.
ProgressReport; //I put the progress report here so that you don't have a proggie sprouting every time you input something in the debug box :(
end.
I put the proggie at the end of everything so you wouldn't have a proggie sprouting every time the script inputs one line in the debug box 
The script will stop when you press F5.
Please read up on SRL standards
here
Hope this helps.
Formerly known as Cut em2 it