Дано произвольная символьная строка

var s,a: string; i,d: integer; begind: =0; write ('Введите что угодно: '); readln (s); for i: =1 to length (s) do d: =d+1; writeln ('Длина строки: ',d); a: =copy (s,3,4); writeln (a); end.