怎么会全错了

var i,j,k,l,n,m,a,b,o:longint;

c:array[1..100]of longint;

st,s1,s2:string;

t:char;

c1:integer;

boo:boolean;

begin

while not eof do

begin

readln(st);

l:=length(st);

o:=0;

boo:=false;

if l