Работа с файлами

[good-spamer]

Помогите исправить недочеты в программе. Среда Turbo Pascal 7.1

Программа должна считывать информацию из входного файла, сравнивать бинарное изображение с его негативом, в выходной файл выводить кол-во неправильно сформированных пикселей.

Код программы:

var z,x:text;a:array[1..100,1..100]of string[1];i,j,n,m,s:integer;b:string[1];
begin
  s:=0;
  assign(z,'negative.in');
  assign(x,'negative.out');
  reset(z);
  while not eof (z) do
  begin
    readln(z,n,m);
    for i:=1 to n do
    for j:=1 to m do
    begin
      if j<>m then read(z,a[i,j])
      else readln(z,a[i,j]);
    end;
    readln(z);
    for i:=1 to n do
    for j:=1 to m do
    begin
      if j<>m then read(b)
      else readln(b);
      if a[i,j]=b then s:=s+1;
    end;
  end;
  close(z);
  rewrite(x);
  write(x,s);
  close(x);
end.

Пример входного и выходного файла:

negative.in
3 4 {размеры изобрачения}
W B B W
B B B B
W B B W

B W W W
W W W B
B W W B

negative.out
2

[eoln]

var z,x:text;a:array[1..100,1..100]of string[2];i,j,n,m,s:integer;b:string[2]; //"пиксели" разделены пробелом, поэтому на каждый "пиксель" приходится по 2 символа. Следует учесть, что в конце строки либо всегда должны быть пробелы, либо их не должно быть вообще, либо при сравнении использовать trim

{while not eof (z) do} //эта строка вообще не нужна, т.к у файла есть загаловок (то есть мы заранее знаем его структуру)

if j<>m then read(z,b) // не забываем указывать, что читаем из файла
else readln(z,b); // аналогично
if a[i,j]=b then s:=s+1;//if trim(a[i,j])=trim(b) then... - для снятия ограничения на пробелы

[good-spamer]

Спасибо огромное!
Надо же было такие пустяки не заметить.