OJ Board

This is my code:
=================
type mt=record
c: char;
f: longint;
end;

var a: array[32..128] of mt;
j,k,fr: integer;
ch,symb: char;
cases,first: longint;
begin

cases:=0;
repeat
inc(cases);
if cases<>1 then begin writeln; writeln; end;
fillchar(a,sizeof(a),0);
repeat
read(symb ...