Cрочно, пожалуйста помогите написать программу

[_Valery]

Есть файл f.in
1) выполнить построчное чтение из файла с удалением лишних пробелов, выделением и выводом на экран отдельных слов, формированием из них массива, выводом каждой строки с уже удаленными пробелами и выводом итогового массива слов
2) отсортировать массив слов методом вставки
3) вывести итоговый массив на печать
P.S. если не сложно, то с комментариями

[Stilet]

Попытки и наработки не спрашивать?

[_Valery]

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

Попытки и наработки не спрашивать?

Наработки есть

[Stilet]

Похвастаешься? )

[_Valery]

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

Похвастаешься? )

uses crt;
var x,w:string; k,i,m,n:byte; p:boolean; f:text; x:array[1..20] of string;  
begin
clrscr;
assign(f,"10.in"); reset(f); n:=0;
while not eof(f) do begin 
n:=n+1;
readln(f,x); writeln(x[n]);
end; close(f);
k:=pos' ',x[n]);
repeat
if k=0 then break;
if k<>0 then delete(x[n],k,1);
until false;
writeln(x[n]);
p:=true;
writeln(t);
for i:=1 to k do begin
 if p=true then do begin
  w:=w+1; m[k]:=m[i]; end;
 if m[i]=' 'then p:=false;
 if m[i]<>' 'then do begin w:=w+1; m[w]:=m[i]; p:=true; end;
end;
m[0]:=chr(k);
writeln(m);
end.

Хвастаться особо нечем, никак не могу разобраться, что добавить, что переделать.. Тут еще и без сортировки

[Stilet]

Давай по-порядку.

1) выполнить построчное чтение из файла с удалением лишних пробелов, выделением и выводом на экран отдельных слов, формированием из них массива, выводом каждой строки с уже удаленными пробелами и выводом итогового массива слов

var i,j,n,k:integer; f:text; s,x:array[1..20000] of string;  
...
n:=1;j:=0;
{Считываем файл}
while not eof(f) do begin 
{построчно в массив строк}
 inc(j); readln(f,s[j]); 
{И каждую строку разбиваем на массив слов}
 for i:=1 to Length(s[j]) do if s[j][i]<>' ' then x[n]:=x[n]+s[j][i] else inc(n);
end; 
{Файл закрываем}
close(f);

write('выводом каждой строки с уже удаленными пробелами');
for i:=1 to j do begin
{Каждую строку избавляем от пробелов}
 repeat k:=pos(' ',s[i]); delete(s[i],k,1); until k=0;
{И выводим без них}
 writeln(s[i]);
end;

Освой эту часть, а сортировку уже после можно будет сделать.

[_Valery]

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

Давай по-порядку.

var i,j,n,k:integer; f:text; s,x:array[1..20000] of string;  
...
n:=1;j:=0;
{Считываем файл}
while not eof(f) do begin 
{построчно в массив строк}
 inc(j); readln(f,s[j]); 
{И каждую строку разбиваем на массив слов}
 for i:=1 to Length(s[j]) do if s[j][i]<>' ' then x[n]:=x[n]+s[j][i] else inc(n);
end; 
{Файл закрываем}
close(f);

write('выводом каждой строки с уже удаленными пробелами');
for i:=1 to j do begin
{Каждую строку избавляем от пробелов}
 repeat k:=pos(' ',s[i]); delete(s[i],k,1); until k=0;
{И выводим без них}
 writeln(s[i]);
end;

Освой эту часть, а сортировку уже после можно будет сделать.

Хорошо, с этим я разобрался

[Stilet]

Младец )
Теперь сюда: http://www.programmersforum.ru/showthread.php?t=145221
Примени алгоритм к массиву Х

[_Valery]

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

Младец )
Теперь сюда: http://www.programmersforum.ru/showthread.php?t=145221
Примени алгоритм к массиву Х

таааак, а вот с этим проблемка, буду очень признателен,если вы поможете мне дописать данную программу, мне просто отправить её надо до 00:00

[Stilet]

Какая проблемка? )