Как сделать, чтобы программа работала без copy, т.е. без процедур и функций в pascal abc.net?

Question

[Anthony_1998]

Здравствуйте. Нужна помощь с задачей. Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
Как сделать, чтобы программа работала без copy, т.е. без процедур и функций в pascal abc?
Вот исходный код:

Program p1;
const
C = [' ', ',', '.'];
var
s,max_word: string;
i,k, prev: integer;
step: boolean;
begin
Write('Введите строку s=');
Read(s);
s:=s + ' ';
prev:=0;
for step:=false to true do
for i:=1 to length(s) do
begin
if s[i] in C then
begin
if i-prev>1 then
begin
if not step then 
begin
if i - prev - 1 > length(max_word) then
max_word := copy(s, prev + 1, i - prev - 1);
end
else 
if s[i - 1] = max_word[length(max_word)] then
write(copy(s, prev + 1, i - prev - 1), ' ');
end;
prev := i;
end;
end;
writeln;
end.