Решение задачи

[zircon]

Составьте программу вывода на экран тех натуральных чисел, меньших N, сумма цифр которых является простым числом.
Информацию считываем из текстового файла. Например, в файле хранится 20.
В ответе должны получить: 1, 2, 3, 5, 7, 10, 14, 16.
Заранее спасибо!=)

[Mad_Cat]

uses crt;
var i,n:integer;
f:text;
function SD(x:integer):integer;
var s:integer;
begin
s:=0;
while x<>0 do
begin
s:=s+x mod 10;
x:=x div 10;
end;
sd:=s;
end;
function Simple(n: LongInt): boolean;
var
  i: LongInt;
begin
 if n<=2 then begin simple:=true;exit;end;
  for i := 2 to Round(Sqrt(n)) do
    if n mod i = 0 then
      break;
  Simple := n mod i <> 0;
end;
begin
assign(f,'vvod.txt');
reset(f);
read(f,n);
close(f);
//n:=20;
for i:=1 to n-1 do
if Simple(sd(i)) then write(i,' ');
end.

[Маргоша1993]

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

[Mad_Cat]

read(n);read(oprdl);
FOR I:=1 to n do
Read(s[i]);
 i:= 1;while i<=n do begin
if length(s[i])<oprDl then 
begin
writeln(s[i]);
for k:=i to n -1 do
s[k]:=s[k+1];
n:=n-1;
end
else inc(i);
end;
writeln;
for i:=1 to n do writeln(s[i]);

[Маргоша1993]

cпасибо,но оно что то не получается.его нужно розпесать по процедурам,ето однозвязный список