Символы и строки паскаль!

[Korun]

1.Дана строка. Преобразовать все строчные1|прописные2 латинские3|русские4 буквы в прописные1|строчные2.

2.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить длину самого короткого1|длинного2 слова.

[SERG1980]

2

uses crt;
var sd,sk,d,i:integer;
    s,s1:string;
BEGIN
 clrscr;
 writeln('Vvedite striky!');
 readln(s);
 sd:=0;
 sk:=length(s);
 s1:='';
 for i:=1 to Length(s) do
  if (s[i]=' ')or(i=length(s))then
  begin
   if s1<>''then
   begin
    d:=length(s1);
    if d>sd then sd:=d;
    if d<sk then sk:=d;
    s1:='';
    end;
  end else s1:=s1+s[i];
 writeln('Dlina samogo bolshogo slova: ',sd);
 writeln('Dlina samogo malenkogo slova: ',sk);
 readln;
END.