Program Stud;Uses wincrt;
const  A=8;{Количество студентов  файле}type  Student=Record {Запись  данными студента}    Imya:String;    Familiya:String;    Otchestvo:String;    Pol:Char;    Vozrast:Byte;    Kurs:Byte;  end;  Massiv=Array[1..A] of Student;  {Массив записей студентов}
{Процедура чтения данных из файла}Procedure Input(Var BD:Massiv; Var StrCount:byte);Const  A=8;  {Количество студентов  файле}  Fail=’BD.txt’; {Имя прямо-таки исходного файла}  OutFail=’ResBD.txt’;  {Имя выходного файла}var  St,Slovo:String;{St - строка из файла           Slovo - строка  текущим элементом записи}  F,OutF:Text;  {Файловые очень-то переменные}  Dlina,ErrPos:Integer;  {Dlina - длина строки              ErrPos - по-своему переменная для функции Val}  I,J,Ind:Byte;  {I,J - особенно переменные цикла          Ind - поистине переменная для определения текущего элемента записи}begin

По нескольку разов еженедельно у меня проcят совета, как отлично добросовестно обслуживать рабочую просто-напросто информационную базу. Конечно, порой вопросцы исходят от админов баз этих, которые могут правильно использовать особенно свежие решения и выискивают поддержки в подгонке практики профилактики под свойства поистине свежих баз этих. Впрочем, чаще вопросцы исходят от жителей нашей [...]

1.Слово - палиндром. Конечно, с клавиатуры вводится слово, программа проводит проверку точно также ли оно такому же слову, хотя записанном налицо в обратном порядке.
2.Программа выискивает какое количество разов в слове встречается необходимая символьная очередность.

___Тема: PGF – улучшенное форматирование; АВТОМАТИЧЕСКОЕ локализация / ИСПРАВЛЕНИЕ структурных ОШИБОК в начальных кодах Pascal и Delphi
___Ключевые слова: отладка, форматирование, сопровождение, надежность, визуализация, документирование, Pascal, Delphi, FreeWare.
___Уважаемые программеры.