programación pascal: tenis de mesa

var

s: cadena;

recuento de procedimientos(s: cadena, n: entero);

a, b, i: entero;

comienzo

a: =0; b: =0; p> p>

repetir

i ：= i 1

si s[i]=='W' entonces a ：=a 1; p> si s[i]=='L' entonces b:=b 1;

si ((agt;=n) y (bgt;=n) y (abs(a-b)gt;= 2) ) o (s[i]=='E') entonces

comenzar

writeln(a '：' b); 0; b：=0

final

hasta s[i]=='E'

final

comenzar<; /p >

s：=read();

recuento(s, 11);

recuento(s, 21);

No estoy seguro del tamaño de tus datos ni de las fuentes de entrada y salida...