Доброго времени суток народ! Нужно решить 2 задачи 1 Преобразовать файл, удалив последнее слово в каждой строке.
Code
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;
ПОМОГИТЕ ДОВЕСТИ ДО УМА!!!!!
