Задача про доску

[Katrina*]

Люди добрые помогите пожалуйста решить задачу...

Задается число К. Нужно вывести цвет каждой клетки доски КхК, если известно, что они покрашены в шахматном порядке и клетка (1,1) - белая.

[Mad_Cat]

function f(x,y:integer):char;
begin
F:='B';
if (x+y) mod 2 = 0 then F:='W';
end;
var i,j,k:integer;
begin
write('k=');readln(k);
For i:=1 to K do begin
For j:=1 to K do
Write(F(i,j));
writeln;
end;
readln;
end.

[Katrina*]

Спасибо большое, добрый человек!))))

[Katrina*]

Подскажите пожалуйста как организовать эту программу через файлы, чтобы число k он считывал из входного файла, а ответ записывал в выходящий???

[Mad_Cat]

как организовать эту программу через файлы

function fun(x,y:integer):char;
begin
Fun:='B';
if (x+y) mod 2 = 0 then Fun:='W';
end;
var i,j,k:integer;
f,g:text;
begin
assign(f,' in.txt');assign('out.txt');reset(f);rewrite(g);
read(f,k);
For i:=1 to K do begin
For j:=1 to K do
Write(g,Fun(i,j));
writeln(g);
end;
close(f);close(g);
end.

[Katrina*]

там была ошибка, я добавила переменную, но ответ он не записывает в файл, почему-то???

Program zadA;
function fun(x,y:integer):char;
begin
Fun:='B';
if (x+y) mod 2 = 0 then Fun:='W';
end;
var i,j,k:integer;
f,g:text;
begin
assign(f,'A.in');assign(g,'A.out'); reset(f);rewrite(g);
read(f,k);
For i:=1 to K do begin
For j:=1 to K do
Write(g,Fun(i,j));
writeln(g);
end;
close(f);close(g);
end.