Спасибо, что откликнулись!
вообщем задание звучит так: выполнить на ЭВМ программу обработки символьных данных в соответствии с вариантом, указанным ниже
есть пример по которому нужно делать эту прогу, но никак не могу их сопоставить...
В информационных системах(базах данных) для представления информации используют только прописные(большие) буквы. Делается это так, чтобы избежал путаницы. Например, с точки здравого смысла строки петров и ПЕТРОВ - это записанная по разному фамилия одного и того же человека. Однако с точки зрения программы- это две разные строки и следовательно, это фамилии двух разных человек. Поэтому возникает задача преобразования строчных букв в прописные.

program lab11;
label 10, 20, 30;
const
bsiZe=80;{ предельная длина строки } 
var
buf:array[1..bsiZe] of char;
n: integer;{ длина введенной строки }
i: integer;
begin
n:=0;
write("-> ");
repeat
	if not eoln 
then beqin
n:=n+l;
read (buf[n]) ;
end;
until eoln or(n=bsiZe);
{ здесь прочитана строка и записана в массив buf }
{ преобразование строки к верхнему регистру } 
for i:=l to n do
begin 
case buf[i] of  “a”..’n’:buf[i]:=chr(ord(buf[i])-32);
“p”..’я’:buf[i]:-chr(ord(buf[i])-80);
end;
end;
{ вывод преобразованной строки } 
writeln;
for i:=1 to n do
write(buf[i]);
end.