Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.

if('A'<=s[i]) and (s[i]<='Z') thenk:= k+1; - это зачем? По условию латинские буквы строчные.

А еще, если букв и чисел поровну окажется, программы выдаст, что чисел больше.

это для того чтобы он считал и болишие и маленькие буквы

да я после того как добавил додумал просто добавь if(k=l) then write('одинаковое число букв и чисел');

Ну тогда еще и русские добавьте... зачем писать то, чего не требуется?

PROGRAM LOL;VAR S:STRING;I,K,L:INTEGER;BEGINREADLN(S);for i:=1 to length(s) dobeginif ('a'<=s[i]) and (s[i]<='z') thenk:=k+1;if('A'<=s[i]) and (s[i]<='Z') thenk:= k+1;if ('0'<=s[i]) and (s[i]<='9') thenl:=l+1;end;if(k>l) then write('в тексте больше букв')else write('в тексте больше чисел');end.