символьные массивы и записи

[Cepgeich]

символьные массивы
условие:

Дана последовательность до 30 слов каждом из которых от 1 до 5 символов, между словами - пробел или запятая, в конце последовательности точка. Напечатать все слова в которых нет повторяющихся символов.
примечание: Базу слов можно вводить с клавы или можно создать базу свою текстовую...
Вобщем впринципе программу написал, но что-то не работет...и я х.з что..и я не учитывал точки..запяты..

прога:
uses crt;
var m:array [1..30] of string;
i,g:integer;
F:text;
k,l:char;
begin
clrscr;
assign (F, 'D:\lala.txt');
reset (F);
for i:=1 to 30 do
begin readln (F,m[i]);
end;
for i:=1 to 30 do
begin
for g:=1 to 4 do
begin
k:=m[i][g];
if k=[i][g]=m[i][g+2] then writeln (m[i]);
end;
end;
close (F);
readln;
end.

Вот, но я сильно совневаюсь в ее правильности впринципе....


Вторая прога по записям:
База данных содержит фамилию пациента и диагноз. НАписать программу, определяющую пациентов с наиболее распространенными заболеваниями. Базу данных там нужно задать самому..
Это я вообще затрудняюсь написать..
Заранее спасмибо

[RUSt88]

База данных содержит фамилию пациента и диагноз. НАписать программу, определяющую пациентов с наиболее распространенными заболеваниями

обращайся, сделаю в лучшем виде

[Cepgeich]

с первой лабой разобрался,...во второй нуждаюсь в помощи...