Составить программу тестирования по информатике

uses crt;
const n=10;
      zag1='       Тестирование по теме';
      zag2='           ТИПЫ ДАННЫХ';
      line='--------------------------------------';
      ww='Введите ответ:';
      a:array [1..n] of string=('Определите тип данных: "all of us"',
                              'Определите тип данных: 123',
                              'Определите тип данных: "s"',
                              'Определите тип данных: 12,54',
                              'Определите тип данных: -5432',
                              'Определите тип данных: 67,3',
                              'Определите тип данных: "$"',
                              'Определите тип данных: "/*/"',
                              'Определите тип данных: -32,45',
                              'Определите тип данных: 200');
      b:array [1..n] of string=('string','byte','char','real','integer',
                              'real','char','string','real','byte');
var i,ball: byte;
    o: string;
 
begin
for i:=1 to n do
    begin
    clrscr;
    writeln(zag1);
    writeln(zag2);
    writeln(line);
    writeln(a[i]);
    writeln(line);
    readln(o);
    if o=b[i] then inc(ball);
    end;
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
write('Ваша отметка ');
ball:=ball*10;
case ball of
100: write('5 баллов');
75..99: write('4 балла');
50..74: write('3 балла');
else   write('2 балла');
end;
end.