Где здесь ошибка

program abc;
const
a:array[1..3,1..4] of real = ((4.8,3.2,9.1,5),(5.1,6,1.4,-1),(4.3,1.15,2.8,3.14));
var i,k:integer;
    b:array[1..3,1..2] of real;
    c:array[1..2,1..4] of real;
begin
  for i:=1 to 3 do
    if i mod 2=1 then
    for k:=1 to 4 do
    b[i,k]:=a[i,k];
  for i:=1 to 4 do
    if i mod 2 = 0 then
    if:=1 to
    for k:=1 to 3 do
    c[i,k]:=a[i;k];
  for i:=1 to 3 do begin
    for k:=1 to 4 do
    write( b[i;k]:5:2);
    writeln;
end;
  for i:=1 to 4 do begin
    for k:=1 to 3 do
    write(c[i;k]:5:2);
    writeln;
end;
end.

uses crt;
const
a:array[1..3,1..4] of real = ((4.8,3.2,9.1,5),(5.1,6,1.4,-1),(4.3,1.15,2.8,3.14));
var i,k:integer;
    b:array[1..3,1..2] of real;
    c:array[1..2,1..4] of real;
begin
writeln('Массив A:');
for i:=1 to 3 do
 begin
  for k:=1 to 4 do
  write(a[i,k]:6:2);
  writeln;
 end;
writeln('Массив B:');
for i:=1 to 3 do
 begin
  for k:=1 to 2 do
   begin
    b[i,k]:=a[i,2*k];
    write(b[i,k]:6:2);
   end;
  writeln;
 end;
writeln('Массив C:');
for i:=1 to 2 do
 begin
  for k:=1 to 4 do
   begin
    c[i,k]:=a[2*i-1,k];
    write(c[i,k]:6:2);
   end;
  writeln;
 end;
end.