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

var
  s,a,b,c:string;
  i,j,change:integer;
begin
  a:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  b:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  c:='abvgdeejziiklmnoprstufhc467890еuj';
  writeln('Введите строку:');
  readln(s);
  writeln('МЕНЮ:');
  writeln('1 для перевода всех строчных в прописные');
  writeln('2 для перевода всх прописных в строчные');
  writeln('3 для перевода всех русских букв в латиницу');
  writeln('0 exit');
  repeat
    readln(change)
  until
    (change>=0) and (change<=3);
  case change of
  1: for i:=1 to length(s) do
       for j:=1 to 33 do
         if s[i]=a[j] then
           s[i]:=b[j];
  2: for i:=1 to length(s) do
       for j:=1 to 33 do
         if s[i]=b[j] then
           s[i]:=a[j];
  3: for i:=1 to length(s) do
       for j:=1 to 33 do
         if (s[i]=a[j]) or (s[i]=b[j]) then
           s[i]:=c[j];
  0: exit;
  end;
  writeln(s)
end.