Посмотрите.

[Oraner]

Составьте проги, типо:
Program a1;
var
...
...
...
end.


5) Составить программу, которая осуществляет ввод строки с клавиатуры и преобразует все большие буквы русского алфавита в малые, и наоборот.



Заранее спасибо!)

[Leshii]

var
  s: string;
  i: byte;
begin
write('Enter string:');readln(s);
for i:=1 to length(s) do 
     if s[i] = Upcase(s[i]) then s[i]:=LowCase(s[i]);

writeln(s);
end.