Не работает заполнение двумерного массива с клавиатуры

var
  a: array[1..3000, 1..3000] of string[1];
  x, y, curx, cury: integer;
 
begin
  read(x, y);
  for cury := 1 to y do 
  begin
    for curx := 1 to x do 
    begin
      read(a[x][y]);
    end;
  end;
end.

var
  a: array[1..3000, 1..3000] of string;
  x, y, curx, cury: integer;
 
begin
  read(x, y);
  for cury := 1 to y do 
  begin
    
    for curx := 1 to x do 
    begin
      read(a[curx][cury]);
    end;
    readln;
  end;
end.

a: array[1..3000, 1..3000] of string;

var
  a: array[1..3000, 1..3000] of char;
  x, y, curx, cury: integer;
 
begin
  readln(y,x);
  for cury := 1 to y do 
  for curx := 1 to x do 
  readln(a[cury,curx]);
end.

var
  a: array[1..3000, 1..3000] of char;
  x, y, curx, cury: integer;
 
begin
  readln(y,x);
  for cury := 1 to y do
  for curx := 1 to x do
  read(a[cury,curx]);
 
end.

var
  a: array[1..3000, 1..3000] of char;
  x, y,curs, curx, cury: integer;
  s:string;
 
begin
  readln(y,x);
  for cury := 1 to y do begin
  readln(s);
  for curx:=1 to length(s) do begin
  a[cury,curx]:=s[curx];
  end;
  end;
  
 
end.