Односвязные линейные списки !!!

[salia]

Помогите пожайлусто с заданием!!! ни как не могу сделать !!!))..Это надо написать на Си и на Паскале

Задание:

1. Создать один или несколько односвязных линейных списков с числом элементов в списке не менее 5. Количество списков и типы их элементов определяет индивидуальное задание.
2. Обработать списки в соответствии с индивидуальным заданием.
3. Описать и использовать подпрограммы создания, просмотра, обработки списка.
4. При демонстрации выполнения программы обеспечить одно- временный показ в окнах на экране исходных и результирующих списков.

Индивидуальные задания
Одно из возможных представлений длинного текста – это разделите его на участки (строки) равной длины и создать массив ссылок на эти строки. Используя такое представление текста подсчитать число строк в тексте.

Вот пытался передалать из этой програмки...но не чего не получилось(((

[Marycka9]

люди,помогите плз!!!оч оч оч срочно надо:
Дан текстовый файл и натуральное число н. Удалить из файла все строки,содержащие более 50 символов. Оставшиеся строки циклически сдвинуть на Н позиций вниз.прога не оч правильно работает,посмотрить плз.

#include<stdio.h>
#include<conio.h>
#include<string.h>
#include<alloc.h>
#define n 50

typedef struct list
{
char stroka[255];
struct list *next;
}
LIST;

LIST *read_list(LIST *lst,char pth[100])
{
 LIST *p;
 FILE *fp;
 fp=fopen(pth,"r");

  if (!feof(fp))
  {
   lst=(LIST *)malloc(sizeof(LIST));
   p=lst;
    while (1)
   {
    fscanf(f,"%c",&p->simv)
    ;
    printf("\n%s",&p->stroka);
   if (!feof(fp)) {
   p->next=(LIST *)malloc(sizeof(LIST));
   p=p->next;
  }
   else break;
  }
 p->next=NULL;
}
else printf("\n File is null ");
 fclose(fp);
  return lst;
}

LIST *del_string(LIST *lst)
{
 LIST *p1=lst, *p2=p1->next, *prev=lst;
  while (p1!=NULL)
  {
   if (strlen(p1->stroka)>n)
   { free(p1);
    if (p1==lst)
     {
      lst=p2;
     prev=lst;
    }
   else
  {
   prev->next=p2;
   p1=prev;
  }
  }
   else prev=p1;
   p1=p1->next;
   p2=p2->next;
  }
 return lst;

}


void write_list(LIST *lst,int x,char pth[])
{
int i;

 FILE *f;
 LIST *p1=lst;
 f=fopen(pth,"w");
for (i=0;i<x;i++)
fprintf(f,"\n");
 while (p1)
 {
 printf("\n%s",p1->stroka);
 fputs(p1->stroka,f);
 p1=p1->next;
 }
fclose(f);
}

void main()
{
int x; LIST *lst=NULL;
char pth[100];
 printf("\nPlease enter the number and path of file: \n");
  scanf("%d %s",&x,pth);
  lst=read_list(lst,pth);
  del_string(lst);
  write_list(lst,x,pth);
scanf("%d",x);
}