Программа про шахматы

[student.bednyy]

помогите пожалуйста исправить вот эту программу.
Шахматную доску будем представлять в виде квадратного символьного
массива размера 8x8. Даны натуральные числа v1 и g1, указывающие
номера вертикали (при счете слева направо) и горизонтали (при счете
снизу вверх) для поля, на котором стоит белая шахматная фигура, и числа
v2 и g2 – указывающие соответствующие координаты второй черной
фигуры (1 v ≤ 1 ≤ 8, 1 g ≤ 1 ≤ 8, 1≤ v2 ≤ 8, 1≤ g2 е ≤ 8). Определить поля (отметить
их символом «+»), на которые может пойти первая фигура, не попав под
удар второй фигуры. Рассмотреть следующие варианты сочетаний первой
и второй фигур :конь и ферзь.

Нужно,чтобы при выводе результатов,фигуры с задаными координатами подписывались буквами K(конь) и F(ферзь).сейчас программа просто выдает плюсы.исправьте пожалуйста.

Program max1;
var a:array[-100..100,-100..100] of char;
v1,v2,g1,g2,i,j,k:integer;
begin
     writeln('введите координаты ферзя и коня');
     readln(v1,g1,v2,g2);
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              a[v1,j]:='+';
              a[i,g1]:='+';
         end;
    for k:=1 to 8 do
      begin
       a[v1-k,g1-k]:='+';
        a[v1+k,g1+k]:='+';
         a[v1-k,g1+k]:='+';
          a[v1+k,g1-k]:='+';
       end;
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              a[v2-2,g2-1]:=' ';
              a[v2-1,g2-2]:=' ';
              a[v2-2,g2+1]:=' ';
              a[v2-1,g2+2]:=' ';
              a[v2+1,g2-2]:=' ';
              a[v2+2,g2-1]:=' ';
              a[v2+2,g2+1]:=' ';
              a[v2+1,g2+2]:=' ';
         end;
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              if a[i,j]<>'+' then a[i,j]:='-';
              write(a[i,j],' ');
              if j=8 then writeln;
         end;
     end.

[Z1000000]

Program max1;
var a:array[-100..100,-100..100] of char;
v1,v2,g1,g2,i,j,k:integer;
begin
     writeln('введите координаты ферзя и коня');
     readln(v1,g1,v2,g2);
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              a[v1,j]:='+';
              a[i,g1]:='+';
         end;
    for k:=1 to 8 do
      begin
       a[v1-k,g1-k]:='+';
        a[v1+k,g1+k]:='+';
         a[v1-k,g1+k]:='+';
          a[v1+k,g1-k]:='+';
       end;
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              a[v2-2,g2-1]:=' ';
              a[v2-1,g2-2]:=' ';
              a[v2-2,g2+1]:=' ';
              a[v2-1,g2+2]:=' ';
              a[v2+1,g2-2]:=' ';
              a[v2+2,g2-1]:=' ';
              a[v2+2,g2+1]:=' ';
              a[v2+1,g2+2]:=' ';
         end;
     a[v1,g1] := 'F';
     a[v2,g2] := 'K';
     for i:=1 to 8 do
     for j:=1 to 8 do
         begin
              if not (a[i,j] in ['+','K','F']) then a[i,j]:='-';
              write(a[i,j],' ');
              if j=8 then writeln;
         end;
     end.