а вот так?

while l<>0 do begin

j:=pos(r,s);
if j=0 then s1:=s else
s1:=copy(s,1,j);
delete(s,1,length(s1));
k:=pos(s1[1],c3);
if k<>0 then begin writeln('stroka vvedena ne verno! oshibcka peremen.'); {???}
m:=m+1; break; end;
....
все что ниже без изменений