Помогите решить матрицу и задачу символьного типа

uses crt;
var a:array[1..3,1..10] of integer;
    i,j:byte;
    f:text;
begin
clrscr;
randomize;
assign(f,'file1.txt');
rewrite(f);
for i:=1 to 2 do
for j:=1 to 10 do
a[i,j]:=random(10);
for i:=1 to 10 do
a[3,i]:=a[1,i]+a[2,i];
for i:=1 to 3 do
 begin
  for j:=1 to 10 do
   begin
    write(a[i,j]:4);
    write(f,a[i,j]:4);
   end;
  writeln;
  writeln(f,'');
 end;
close(f);
readln
end.

uses crt;
var f:text;
    s:string;
    k,i:integer;
begin
clrscr;
assign(f,'1_1.pas');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
   begin
    if copy(s,i,5)='begin' then k:=k+1;{считаем бегины}
    if copy(s,i,3)='end' then k:=k-1;{считаем энды}
    if (k=-1) then{если энд впереди бегина}
     begin
      writeln('Скобки begin..end расставлены неверно!');
      readln;
      exit;
     end;
   end;
  end;
close(f);
if k=0 then write('Скобки begin..end расставлены верно!'){если совпало количество и нет эндов впереди бегина}
else write('Скобки begin..end расставлены неверно!');
readln
end.