Помогите пожалуйста разобраться с программой, очень надо, можите обьяснить суть программы и выполнение ее, желательно рассказать что выполнять каждая строчка(после описания)...прошу помогите((((
Дан текст. найти самую длинную группу цифр и поменять ее с последней группой цифр
[syntax='pascal']
const
s = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr. we_653_fgh';
var
i: Integer;
pmax, lmax: Integer;
pt, lt: Integer;
ResultStr: string;
begin
i := 1;
lmax := 0;
repeat
if s in ['0'..'9'] then
begin
lt := 1;
while (i <= Length(s)) do
if s[i + lt] in ['0'..'9'] then
Inc(lt)
else
Break;
pt := i;
if lt > lmax then
begin
lmax := lt;
pmax := i;
end;
i := i + lt;
end;
Inc(i);
until i > Length(s);
ResultStr := Copy(s, 1, pmax - 1) + Copy(s, pt, lt) +
Copy(s, pmax + lmax, pt - pmax - lmax) + Copy(s, pmax, lmax) +
Copy(s, pt + lt, Length(s) - pt - lt + 1);
Writeln(s);
Writeln(ResultStr);
Readln;
end.
[/syntax]
Еще раз увижу такой код без форматирования - удалю! Если Вы не потрудились нормально оформить, то почемы мы должны разбираться в Ваших каракулях? Необходимо заключать код в теги CODE