Упростить программу тестер

[buld03er]

Здраствуйте. Нашёл я в интернете тестировщик. Я уже выкинул часть всякого бреда из неё (методом тыка)... Теперь нужно упростить её как можно больше. и по возможности объясните что для чего нужно...

Program Test;
Uses crt;
const a:array[1..12, 1..4] of integer=
      ((0,0,1,0),
       (0,1,0,0),
       (0,1,0,0),
       (1,0,0,0),
       (1,0,0,0),
       (0,1,0,0),
       (0,0,1,0),
       (0,0,0,1),
       (0,0,0,1),
       (0,0,0,1),
       (0,0,1,0),
       (1,0,0,0));

Var i,k:integer;
    ch: Char;
    f:boolean;


Procedure Out(k:integer);
begin

  if k=1 then begin
     Writeln('1. В каком году Google начал работу?');
     Writeln('*) 1986');
     Writeln('Ў) 1992');
     Writeln('ў) 1997');
     Writeln('Ј) 2000');
  end;
  if k=2 then begin
     Writeln('2. На скольких языках Google может находить информацию?');
     Writeln('*) 57');
     Writeln('Ў) 186');
     Writeln('ў) 112');
     Writeln('Ј) 34');
  end;
  if k=3 then begin
     Writeln('3. Какой алгоритм расчета авторитетность страницы использует Google?');
     Writeln('*) TIC.');
     Writeln('Ў) PageRank.');
     Writeln('ў) Field.');
     Writeln('Ј) Parker.');
  end;
  if k=4 then begin
     Writeln('4. Как искать только по определенному домену?');
     Writeln('*) Site:www.google.com');
     Writeln('Ў) Domen:www.google.com');
     Writeln('ў) Search:www.google.com');
     Writeln('Ј) Page:www.google.com');
  end;
  if k=5 then begin
     Writeln('5. Какую функцию выполняет GoogleTag allintitle:GOOGLE');
     Writeln('*) Поиск только по заголовку.');
     Writeln('Ў) Поиск только по тексту.');
     Writeln('ў) Поиск только по url.');
     Writeln('Ј) Поиск только по сервисам Google.');
  end;
  if k=6 then begin
     Writeln('6. Какую функцию выполняет GoogleTag related:www.google.com?');
     Writeln('*) Проверяет индексацию сайта.');
     Writeln('Ў) Ищет похожие страницы.');
     Writeln('ў) Проверяет сайт на кроссбраузерность.');
     Writeln('Ј) Проверяет место сайта в поиске.');
  end;
  if k=7 then begin
     Writeln('7. Какую функцию выполняет GoogleTag define:TEST');
     Writeln('*) Поиск по персональным старницам.');
     Writeln('Ў) Поиск математического решения.');
     Writeln('ў) Поиск определения слова.');
     Writeln('Ј) Поиск по базе рефератов.');
  end;
  if k=8 then begin
     Writeln('8. Какие функции кнопки "Мне повезет"');
     Writeln('*) Пользователь попадает на случайную страницу.');
     Writeln('Ў) Пользователь получает денежный приз от Google в случае удачи.');
     Writeln('ў) Пользователь получает частичку дохода от рекламного клика.');
     Writeln('Ј) Пользователь отправляется на первую найденую ссылку,');
     Writeln('не показывая результатов поиска.');
  end;
  if k=9 then begin
     Writeln('9. Как изначально должен был называться Google');
     Writeln('*) guugle.');
     Writeln('Ў) google.');
     Writeln('ў) googler.');
     Writeln('Ј) googol.');
  end;
  if k=10 then begin
     Writeln('10. Сколько лет тестировался Gmail внутри компании');
     Writeln('*) 5 лет.');
     Writeln('Ў) 4 года.');
     Writeln('ў) 3 года.');
     Writeln('Ј) 2 года.');
  end;
   if k=11 then begin
     Writeln('11. Как звучит девиз Google?');
     Writeln('*) Помоги.');
     Writeln('Ў) Все лучшее случается неожиданно.');
     Writeln('ў) Не навреди.');
     Writeln('Ј) Приоритет качество.');
  end;
   if k=12 then begin
     Writeln('12. За какую сумму Сергей Брин и Ларри Пейдж,');
     Writeln('предлагали Yahoo! купить Google вместе с Page rank? ');
     Writeln('*) 1000 000$');
     Writeln('Ў) 1000 00$');
     Writeln('ў) 1000 0$');
     Writeln('Ј) 1000$');
  end;
end;

[buld03er]

продолжение программы

Procedure Result1(k:integer);
begin
  Clrscr;
  writeln('ђҐ§г«мв*вл вҐбв*');
  writeln;
          if k=0 then begin
     writeln('‚л *Ґ ®вўҐвЁ«Ё *Ё ** ®¤Ё* ў®Їа®б.');
  end;
 if k=1 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 1 ў®Їа®б.');
  end;
        if k=2 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 2 ўЇ®а®б*.');
  end;
          if k=3 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 3 ў®Їа®б*.');
  end;
          if k=4 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 4 ў®Їа®б*.');
  end;
          if k=5 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 5 ў®Їа®б®ў.');
  end;
          if k=6 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 6 ў®Їа®б®ў.');
  end;
          if k=7 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 7 ў®Їа®б®ў.');
  end;
          if k=8 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ў«м*® ** 8 ў®Їа®б®ў.');
  end;
          if k=9 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 9 ў®Їа®б®ў.');
  end;
          if k=10 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 10 ў®Їа®б®ў.');
  end;
          if k=11 then begin
     writeln('‚л ®вўҐвЁ«Ё Їа*ўЁ«м*® ** 11 ў®Їа®б®ў.');
  end;
          if k=12 then begin
     writeln('‚л ®вўҐвЁ«Ё ўбҐ Їа*ўЁ«м*®. Џ®§¤а*ў«по!!!');
  end;
  writeln('');
end;

Begin
  Clrscr;
  Writeln('„«п **з*«* вҐбв* **¦¬ЁвҐ «оЎго Є*®ЇЄг.');
  Writeln('P.S. *Ґ §*Ўг¤м⥠ЇҐаҐЄ«оз*вмбп ** агббЄго а*бЄ«*¤Єг (Џа*ўл© Shift+Ctrl)');
  write('ђЉ ‡Љ€’“ 2010 (‘) ’Ґ¬зҐ*Є® ѓҐ***¤Ё© ');
  ch:=readkey;
  i:=0;

  for k:=1 to 12 do begin
  Clrscr;
    f:=false;
    Out(k);
    Writeln;
    Write('ЋвўҐв: ');
    ch:=readkey;
    if (ch='*') then begin
      i:=i+a[k,1];
      f:=true;
      write('*');
      end;
    if (ch='Ў') then begin
      i:=i+a[k,2];
      f:=true;
      write('Ў');
      end;
    if (ch='ў') then begin
      i:=i+a[k,3];
      f:=true;
      write('ў');
      end;
    if (ch='Ј') then begin
      i:=i+a[k,4];
      f:=true;
      write('Ј');
      end;
    end;
    result1(i);
  writeln;
  writeln('„«п ўл室* **¦¬ЁвҐ Enter');
  readln;
  exit;
end.