Файлы в Паскале

[Гамбит]

Всем доброго времени суток.
Вот задача.
Преобразовать файл, удалив последнее слово в каждой строке.


Объясните мне плиз, как взять отдельную строку???( с остальным наверно сам разберусь)

[Horus92]

readln(имя файла,имя переменной)

[Гамбит]

а можно поточнее? я в файлах пока полный 0.

[Гамбит]

Program lab_9;
uses crt;
type ff=text;
procedure create(var s:string; n:byte);
var f1:ff; i:byte;
begin
assign(f1,s);
rewrite(f1);
readln(n);
for i:=1 to n do
begin
readln(s);
write(f1,s);
end;
close(f1);
end;
Procedure delete(Var s:string; n:byte);
var f1:ff; i,k,l,j:byte;
begin
assign(f1,s);
rewrite(f1);
while not eof(f1) do
begin
for i:=1 to n do
begin
readln(f1,s);
k:=length(s);
begin
for i:=k downto 1 do
begin
if s[j]=' 'then
l:=j;
end;
s[0]:=#l;

у меня получилось такое, но паскаль ругается на последнюю строчку (я вывод пока не писал) ПОМОГИТЕ КТОНИБУДЬ!!!!!