Написать программу-тест по математике

uses
  GraphABC;
var
  i : integer;
begin
  i:=LoadPicture('demo.bmp');
  DrawPicture(i,0,0)
end.

program matematika;
Uses crt;
  const n=15;  Yellow=14;  red=4;
  var s,i:integer;
    r,w,w1:string;
    a:array [1..N] of string;
    b:array[1..N] of string;
    c:array[1..N] of string;
    d:array[1..N] of string;
 
 begin
 TextBold; TextSize(16);
 a[1]:=('1.');
 a[2]:=('2.');
 a[3]:=('3.');
 a[4]:=('4.');
 a[5]:=('5.');
 a[6]:=('6.');
 a[7]:=('7.');
 a[8]:=('8.');
 a[9]:=('9.');

uses
  Crt,GraphABC;
 
const
  k = 4;
  pics: array[1..k] of string = ('1.jpg', '2.jpg', '1.jpg', '1.jpg');// номер картинки - вопроса
  RightAnwsers: array[1..k] of integer = (1, 2, 3, 4);// правильный ответ
 
var
  j,n, i: integer;
  ch:char;
  mark,key:byte;
 
begin
  mark:=0;
  SetFontSize(16);
  for i := 1 to k do
    begin
      n := LoadPicture(pics[i]);
      DrawPicture(n,0,0);
      TextOut(0,600,'Выберите правильный ответ ');
      ch:=readkey;
      key:=StrToInt(ch);
      if key=RightAnwsers[i] then
        mark:=mark+1;
      DestroyPicture(n);
    end;
   TextOut(0,600,'Правильных ответов: '+IntToStr(mark));
   readln;
end.