Неполное решение, выручайте!!!

[anton.dasuik]

Задача A-Неуважність
Неуважність
Ім'я файлу, який містить вхідні дані: text.in
Им'я вихідного файлу: text.out
Обмеження часу: 100 мс
Обмеження пам'яті: 128 M

Степан вдало пройшов співбесіду і ось уже як чотири місяці працює на одній із самих престижних ІТ компаній. Прийшов час здавати проект менеджеру і Степан, як істинний студент, все виконує у останню ніч перед здачею. Набирає текст Степан звичайно дуже швидко, але неуважно. От і цього разу останню частину тексту він набрав не звернувши уваги, що випадково натиснув клавішу caps lock. Таким чином великі букви були набрані маленькими, а маленькі великими. Інші символи він набрав вірно. Степан настільки стомився, що немає сил виправити помилки, і він вирішив кілька годин поспати. Допоможіть Степану, доки він спить, напишіть програму, яка виправляє неуважно набраний текст.

Формат вхідних даних: перший рядок вхідного файлу містить неуважно набраний Степаном текст, який містить не більше 500 символів.

Формат вихідних даних: вихідний файл має містити виправлений текст.


Прилад :
sCHOOL School

const
     max = 510;

var
    Vl,Vm : array [1..27] of char;
    Ch : array [1..max] of char;
    i,j,k : longint;

BEGIN
 assign(input,'text.in');
 assign(output,'text.out');
 reset(input);
 rewrite(output);

 Vl[1] := 'Q';

 Vl[2] := 'W';
 Vl[3] := 'E';
 Vl[4] := 'R';
 Vl[5] := 'T';
 Vl[6] := 'Y';
 Vl[7] := 'U';
 Vl[8] := 'I';
 Vl[9] := 'O';
 Vl[10] := 'P';
 Vl[11] := 'A';
 Vl[12] := 'S';
 Vl[13] := 'D';
 Vl[14] := 'F';
 Vl[15] := 'G';
 Vl[16] := 'H';
 Vl[17] := 'J';
 Vl[18] := 'K';
 Vl[19] := 'L';
 Vl[20] := 'Z';
 Vl[21] := 'X';
 Vl[22] := 'C';
 Vl[23] := 'V';
 Vl[24] := 'B';
 Vl[25] := 'N';
 Vl[26] := 'M';
 Vl[27] := ' ';




 Vm[1] := 'q';
 Vm[2] := 'w';
 Vm[3] := 'e';
 Vm[4] := 'r';
 Vm[5] := 't';
 Vm[6] := 'y';
 Vm[7] := 'u';
 Vm[8] := 'i';
 Vm[9] := 'o';
 Vm[10] := 'p';
 Vm[11] := 'a';
 Vm[12] := 's';
 Vm[13] := 'd';
 Vm[14] := 'f';
 Vm[15] := 'g';
 Vm[16] := 'h';
 Vm[17] := 'j';
 Vm[18] := 'k';
 Vm[19] := 'l';
 Vm[20] := 'z';
 Vm[21] := 'x';
 Vm[22] := 'c';
 Vm[23] := 'v';
 Vm[24] := 'b';
 Vm[25] := 'n';
 Vm[26] := 'm';
 Vm[27] := ' ';

 i := 1;

 while NOT EOF do begin

  read(Ch[i]);
  inc(i);

 end;




 for j := 1 to i-1 do begin
  for k := 1 to 27 do begin

   if Ch[j] = Vl[k] then begin
    write(Vm[k]);
    break;
   end;

   if Ch[j] = Vm[k] then begin
    write(Vl[k]);
    break;
   end;


  end;
 end;


 close(input);
 close(output);

END.

[BDA]

var
  Ch: char;

BEGIN
  assign(input, 'text.in');
  assign(output, 'text.out');
  reset(input);
  rewrite(output);
  while NOT EOF do
  begin
    read(Ch);
    if Ch in ['A' .. 'Z'] then
      write(chr(ord(Ch) + 32))
    else if Ch in ['a' .. 'z'] then
      write(chr(ord(Ch) - 32))
    else
      write(Ch);
  end;
  close(input);
  close(output);
END.