есть подозрение что все помеченное красным ошибка
for n:=1 to l3 do begin цикл вроде можно убрать отсюда
k:=pos(s1[1],c3[n]);
if k<>0 then begin writeln('stroka vvedena ne verno! oshibcka peremen.'); {???}
l3:=l3+1; l:=0; m:=m+1; end
else n:=n+1;
end;