OJ Board

I am trying to solve the linear cellular automata problem. This is my code I get a wrong answer reply and I don't really know what's wrong about it. Thanks for help

program automata(input,output);


var
T1,T2:array [1..40] of byte;
DNA:array [0..9] of byte;
i,z:integer;

procedure print(var T ...

thanks for help I will try redesing my problem as you said

I have some problems with this code. When I'am compiling it under Turbo Pascal everything is Ok but in Free Pascal I get errors. Can anyone help me?
**********************************************************
program palindromes(input,output);


const
pali = ' -- is a regular palindrome.';
mstrin ...