Ввод с текстового файла

[faiter_on]

Помогите пожалуйста соединить две частиprogram sortslov;
var
rt:string;
volp:integer;
{------------------- начало процедуры ввода----------------------}
procedure vvod;
var
ddate:string[255]; { Сюда будем грузить предложение с клавиатуры }
begin
writeln('Введите латинские слова (не более 5 букв в слове)');
writeln('между соседними словами - запятая, за последним словом - точка ');
writeln('Пример: hello,world.');
readln(ddate);writeln('Введено= ',ord(ddate[0]),' символов');
rt:=ddate;
volp:=ord(ddate[0])-1; { точку за борт }
end;
{--------------------начало процедуры обработки------------------}
procedure obrabotka (dd:string);
var
t,k:integer;
zap,sl:string;
slova:array [1..30] of string;
begin { разбиваем на слова }
sl:='';t:=1;zap:=',';
for k:=1 to volp do
begin
if (dd[k]<>zap) then sl:=sl+dd[k]
else
begin
slova[t]:=sl;
sl:='';{ обнуляем накопитель}
t:=t+1;
end;
end;
{обработка слов теперь}
for k:=2 to t-1 do
begin
if (slova[k-1]<slova[k])and(slova[k]<slova[k+1]) then
writeln(slova[k])
else
writeln('Не соответствуют условию слово=',slova[k]);
end;
end;
begin
vvod;
obrabotka (rt);
end.


И 2 часть

{$reference System.Core.dll}
uses System, System.IO, System.Linq;
*
function check(s : array of string; ix : integer) : boolean;
begin
* result := true;
* var st : string := s[ix];
* for var i := 0 to s.Length - 1 do
* * if i <> ix then result := result and ((s[i] < st) = (i < ix));
end;
*
var s : array of string;
begin
* s := &File.ReadAllText('d:\test\thread12 97847.txt').Split('.,'.ToCharArray( ));
* &File.WriteAllLines('d:\test\thread 1297847_out.txt', s.Where((st : string, i : integer) -> check(s, i)).ToArray());
end.

[ViktorR]

А что собственно хочется получить после скрещивания того что приведено?
Какие языки использованы в первой и второй частях?
Если в первой Паскаль, то почему

... ord(ddate[0] ...
...
volp:=ord(ddate[0])-1; { точку за борт }

а не Length() ?

ddate:string[255]; { Сюда будем грузить предложение с клавиатуры }

внутренняя переменная процедуры.
Ввели в нее строку и что ...


Как-то так, ...

[faiter_on]

Язык - паскаль.
После скрещивания должен быть реализован ввод из текстового файла и обработка символьных последовательностей, состоящих из любых символов

[faiter_on]

В первой паскаль точно и во второй паскаль вроде должен быть