Скопировать 4 символа, начиная с третьего.(функция copy) Pascal

[Alexmur07]

program labrab5; {Калеганов А.В. группа ПБТ-32}
uses crt;
type tbl = record
stroka:string;
dlina:integer;
end;
var
 str:string;
 s:tbl;
begin
 clrscr;
 writeln('Лабораторная работа 5');
 writeln('---------------------');
 writeln('Скопировать 4 символа, начина с третьего');
 writeln('Последовательность символов: Postulat');
 writeln('-----------------------------------------');
 write('Введите строку и нажмите "Enter":');
 readln(str);
 writeln('Последовательность символов:',str);
 copy(str,3,4);
 s.stroka:=str;
 s.dlina:=length(str);
 writeln('__________________________');
 writeln('     Stroka   |   Dlina   ');
 writeln('--------------------------');
 writeln(s.stroka,'       |  ',s.dlina);
 writeln('--------------------------');
 writeln('Для завершения нажмите любую клавишу');
 readkey;
end.

в коде я пометил на какое именно место он ругается, подскажите что не так?

[Poma][a]

copy - функция, а не процедура..
Пишите str := copy(str,3,4); // код не смотрел, пишу наобум..
Кстати, название str - это ужасно.. т.к. есть такая стандартная процедура

[Alexmur07]

ага, спс заработало