(Pascal) Дан файл, содержащий текст на английском языке.

[faddey]

Дан файл, содержащий текст на английском языке. Определить сколько раз встречается в нём слова длиной в самое короткое слово.

Программа готовая, только помогите определить за что отвечает вот операция? Для чего нужна? Именно в данном случае
Строка 43 и 84

Delete(s,1,Pos(' ', s));

Сама программа:

uses Crt;
var s,s1, res : string;
    k : integer;
    f : text;
begin
 ClrScr;
 Assign(f, '1.txt');
 {$I-}
 Reset(f);
 {$I+}
 if (IOResult <> 0) then
 Begin
  writeln('Ошибка');
  exit;
 end;
 res:='';
 While not Eof(f) do 
 begin
  Readln(f, s);
  While Pos('  ',s)>0 do
   Delete(s,Pos('  ',s),1);
  While Pos('.',s)>0 do
   Delete(s,Pos('.',s),1);
  While Pos(',',s)>0 do 
   Delete(s,Pos(',',s),1);
  if s[1]=' ' then 
   Delete(s,1,1);
  if s[1]='.' then
   Delete(s,1,1);
  if s[1]=',' then
   Delete(s,1,1);
  if s[Length(s)]=' ' then
   Delete(s,Length(s),1);
  if s[Length(s)]='.' then
   Delete(s,Length(s),1);
  if s[Length(s)]=',' then
   Delete(s,Length(s),1);
  While s<>'' do
  begin
   if Pos(' ',s)>0 then 
   begin
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ', s));
   end
   else 
   begin
    s1:=s;
    s:='';
   end;
   if (res='') or (Length(s1)<Length(res)) then
    res:=s1;
  end;
 end;
 Close(f);
 Reset(f);
 k:=0;
 While not Eof(f) do 
 begin
  Readln(f, s);
  {Удаляем лишние пробелы}
  While Pos('  ',s)>0 do 
   Delete(s,Pos('  ',s),1);
  While Pos('.',s)>0 do
   Delete(s,Pos('.',s),1);
  While Pos(',',s)>0 do 
   Delete(s,Pos(',',s),1);
  if s[1]=' ' then 
   Delete(s,1,1);
  if s[1]='.' then
   Delete(s,1,1);
  if s[1]=',' then
   Delete(s,1,1);
  if s[Length(s)]='.' then
   Delete(s,Length(s),1);
  if s[Length(s)]=',' then
   Delete(s,Length(s),1);
  if s[Length(s)]=' ' then 
   Delete(s,Length(s),1);
  While s<>'' do 
  begin
   if Pos(' ',s)>0 then 
   begin
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
   end 
   else 
   begin
    s1:=s;
    s:='';
   end;
   if s1=res then 
    Inc(k);
  end;
 end;
 Close(f);
 if res<>'' then 
  Writeln('Самое короткое слово ', res, ', встречается ',k,' раз')
 else
  Writeln('Файл не содержит слов');
end.

[min@y™]

Для данной задачи (подсчёт чего-то) использование процедуры Delete() - это зашквар моветон.

[faddey]

Сообщение от min@y™

Для данной задачи (подсчёт чего-то) использование процедуры Delete() - это зашквар моветон.

К чему это? Пожалуйста отвечайте по делу, код программы не мой.

[min@y™]

Сообщение от faddey

К чему это? Пожалуйста отвечайте по делу, код программы не мой.

Тебя в гугле забанили? За что?!

21-58-11.png

[faddey]

Сообщение от min@y™

Тебя в гугле забанили? За что?!

Вложение 92950

Я знаю как работает эта процедура, но вот её назначение именно в тех моментах мне не понятно, перечитайте в чём состоит вопрос

[Serge_Bliznykov]

Сообщение от faddey

но вот её назначение именно в тех моментах мне не понятно

это разбор строки на слова.

  
  While s<>'' do {пока исходная строка не стала пустой делать}
  begin
   if Pos(' ',s)>0 then {если в строке есть пробел (позиция пробела не равна нулю) тогда}
   begin
    s1:=Copy(s,1,Pos(' ',s)-1); {в переменную s1 скопировать подстроку с начала до пробела (не включая сам пробел)}
    Delete(s,1,Pos(' ', s)); {удалить из строчки подстроку от начала и до пробела (включая сам пробел}
   end
   else  {иначе (в строке нет пробела)}
   begin
    s1:=s; {в переменную s1 скопировать весь остаток строки}
    s:=''; {очистить строку}
   end;

p.s. как справедливо сказано - использовать при разборе Delete - моветон!