Процедура присваения значения элементу массива

 type mass:array[1..100] of integer;
procedure Zamena(var m:nass;k,z:integer);
begin
m[k]:=z;
end;
 
var a:mass;
     ind,chs:integer;
begin
{создаем массив}
write('ind=');readln(ind);
write('chs=');readln(chs);
Zamena(a,ind,chs);
{вывод измененного массива}

var
S : array [1..10] of string;
Kol : Byte;
procedure A(var Kol : Byte; S : array of string);
 begin
  Readln(S[kol-1]);
 end;
begin
kol := 1;
A(kol,S);
Write(S[Kol]);
Readln;
end.

uses crt;
type
mas=array [1..3] of string; //объявляем тип массива для передачи в процедуру
procedure A(Kol : Byte; var S : mas);//var пишем только перед выходными параметрами, 
                                         //причем перед параметрами разного типа var пишется снова
                                         //например procedure B(a,b:integer; var sum:integer; var castn:real);
                                         //водим 2 целых числа, получаем сумму-целое число, частное-вещественное число
 begin
  writeln(S[kol-1]);//вывести на экран это write, или writeln. readln-это читать
 end;
var
S : mas;
Kol, i : Byte;
begin
clrscr;
writeln('Введите 3 слова:');
for i:=1 to 3 do// индексы c 1
readln(s[i]);
kol := 2;
A(kol,S);//выведет на экран первое слово(kol-1)
Readln
end.