Помогите обьяснить

[kalachik]

uses crt;

type entry_t = record
    str : string[255];
    lenght : 1..255;
    end;

var strentry : entry_t;
var str : string[255];
var strlength : integer;
var c : char;
begin
    clrscr;
    read(str);

    strlength := length(str);
    strentry.str := copy(str, 3, 4);
    strentry.lenght := length(strentry.str);
    writeln('String: ', strentry.str);
    writeln('Length: ', strentry.lenght);
    write('Enter to exit...');
    readln(c);
end.

Пояснить фрагмент программы

strentry.str := copy(str, 3, 4);
strentry.lenght := length(strentry.str);

[newerow1989]

1: вырезает из строки str 4 символа, начиная с 3 позиции; например, str = 'миномет', а copy(str, 3, 4) выдаст 'номе';
2: вычисляет количество символов strentry.str; например, 'номе' состоит из 4 символов.

[NetSpace]

1.ты переменную strentry в самом начале делаешь типом entry_t; а у этой entry_t есть 2 свойства, одно из которых str. значит и strentry унаследует это свойство.
strentry.str := copy(str, 3, 4);
сорy - это функция копирования части строки str, начиная с позиции 3 и копируется 4 символа с этой позиции.
//-----------
2.strentry.lenght := length(strentry.str); это второе унаследованное свойство переменной strentry. но так как тебе надо его определить, то мы его просто делаем такой же длины, как и strentry.str. функция length() возвращает длину строки в виде числа

[newerow1989]

А нельзя проще:

uses crt;

type entry_t = record
    str : string;
    lenght : byte;
    end;

var strentry : entry_t;
    str : string;
    strlength : integer;//ДЛЯ ЧЕГО?
    c : char;//ДЛЯ ЧЕГО?
begin
    clrscr;
    read(str);

    strlength := length(str);//ДЛЯ ЧЕГО?
    strentry.str := copy(str, 3, 4);
    strentry.lenght := length(strentry.str);
    writeln('String: ', strentry.str);
    writeln('Length: ', strentry.lenght);
    write('Enter to exit...');
    readln(c);//ДЛЯ ЧЕГО?
end.

Там, где //ДЛЯ ЧЕГО?, эти строки можно удалить!

[NetSpace]

а если он эту программу будет дополнять и дорабатывать и эти переменные нужны будут?
а в конце readln(c); нужно, чтобы программа не закрывалась, а ждала, пока пользователь посмотрит результат и уж потом нажмёт клвишу. так что и c : char; тоже нужно

[kalachik]

всем спасибо