Указатели

[Crazy-kun]

Нужно написать программу на паскале, которая заполняет массив из записей. Количество и тип полей в записи не имеет значения, количество элементов в массиве не имеет значения. Обязательным является использование указателей.
Как я только не пробовал вставлять эти указатели - все тщетно.

Вот мой дефективный код.

program ukazat;
type
  a=^zap;
  zap=record
    shape:string;
  end;
  mas=array[1..5] of a;
var
  b:mas;
  i:integer;
Begin
  for i:=1 to 5 do
    begin
      writeln('Enter the shape');
      readln(b[i]^.shape);
    end;
  writeln('Data was entered');
  for i:=1 to 5 do
    writeln('Shape of object is: ', b[i]^.shape);
  readln;
end.

[s-andriano]

Напишите функцию, которая заполняет запись, переданную ей в качестве формального параметра.
Очевидно, это можно сделать только в том случае, если в функцию передан указатель на запись, которую нужно заполнить.
Обычно в Паскале принято записывать это через var параметр, но можно сделать честнее - передавать в функцию непосредственно указатель без var.