Помогите сделать процедуру ввода миссивов в Delphi

Question

Помогите сделать процедуру ввода одномерных миссивов в Delphi c использованием StringGrid. Ввод имени и размера массива выполняется с едитовimplementation
 Type
 VectType = Array[1..50] of Real;
Procedure Vvod(Var Ar:VectType; k:integer);
Var
 i:integer;
Begin
 for i:=1 to k do
 begin
 Ar[i] := StringGrid1.Cells[i-1,0][1];
 end
End;Выдает ошибку undeclared indetifier 'StringGrid1'

Ar[i] := StringGrid1.Cells[i-1,0][1];

Почему тут ошыбка undeclared indetifier 'StringGrid1'

Елена Елена · Accepted Answer

for i:=1 to k do
k - что за х*йня?

Как ты в цикле узнаешь, что строки закончились?
for i:= StringGrid1.Row to StringGrid1.RowCount-1

Артур Давлетшин · Answer

Вот на Паскале. В Делфи я не знаю как.

const
n = 3; //размер массива
type
A = array[1..n] of integer;
var
Ar : A; // объявляем массив
// процедура ввода
procedure vvod(var Ar: A; n:integer);
var i :integer;
begin
 for i := 1 to n do 
 read(Ar[i]);
end;
// процедура вывода
procedure vivod(var Ar: A; n:integer);
var i :integer;
begin
 for i := 1 to n do 
 write(Ar[i],' ');
end;
// начало программы
begin
 vvod(Ar,n); // вызываем функции
 vivod(Ar,n);
end.