Одномерный массив задача Delphi

[Начинающий програм]

Ничего страшного!

Посмотрите пожалуйста почему компилятор ругается?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
const
  n=5;
type
  telem=integer;
  a_mas=array [1..n] of telem;
  b_mas=array [1..n] of telem;
var
  a:a_mas;
  b:b_mas;
  i,s,c:integer;
begin
  for i:=1 to n do
    readln(a[i]);
  c:=0;
  For i:=1 to 3 do
    begin
      c:=c+1;
      a_mas[c]:=i;
      For j:=1 to k do
        begin
          c:=c+1;
          a_mas[c]:=b_mas[j];
        end;
    end;
  for j:=1 to k do
  writeln(b_mas[j]);
  readln
end.

[Hacker19_90]

Потому что у вас j не обьявленна!

var
  a:a_mas;
  b:b_mas;
  i,s,c:integer;

а в программе

a_mas[c]:=b_mas[j]

[Начинающий програм]

Ничего страшного!
Помогите исправить ошибки в коде, там наверное много ошибок которые Вам покажутся глупыми, я плохо еще ознакомлен с программированием.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
const
  n=5;
type
  telem=integer;
  a_mas=array [1..n] of telem;
  b_mas=array [1..n] of telem;
var
  a:a_mas;
  b:b_mas;
  i,s,c:integer;
begin
  for i:=1 to n do
    readln(a[i]);
  c:=0;
  For i:=1 to 3 do
    begin
      c:=c+1;
      a_mas[c]:=i;
      For j:=1 to k do
        begin
          c:=c+1;
          a_mas[c]:=b_mas[j];
        end;
    end;
  for j:=1 to n do
  writeln(b_mas[j]);
  readln
end.