Delphi заготовки

const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово



Function GetWordCount(s:string):integer;
 var y,x:integer;
     s2:string;
begin
  y:=0;
  s2:='';
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
      s2:='';
    end
  end;
  if s2<>'' then Y:=y+1;
  GetWordCount:=y;
end;

Function GetWordCountFromFile(Filename:string):integer;
var  f:Text;
     xlength:integer;
     s:string;
begin
   assign(f,Filename); { assignfile to Delphi}
   reset(f);
   xlen ... Читать дальше »

{задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов}
uses crt;
const ncount=15;
var
a:array [1..ncount] of integer;
   x:integer;
   sumI:integer;
begin
ClrScr;
sumI:=0;
 for x:=1 to ncount do begin
   a[x]:=-5+random(11);
   Write(a[x]:3,' ');
   if a[x]>=0 then sumI:=sumI+1;
 end;
 Writeln('');
 Writeln('Число ненулевых элементов ',sumI);
end.

опубликую не большой исходник для создания меню в Паскаль думаю тут все понятно

протестирован на Pascal ABC
http://netsoftware.ucoz.ru/load/gde_skachat_pascal_abc/1-1-0-10

uses crt;



Var count_k:integer;
Var
  Menu: array[1..100] of string[50];



procedure Show_Menu(SelectElement:byte);
var i: byte;
begin
   for i:=1 to count_k do
   begin
      textcolor (white);
      Window (25,i*2,70,i*2+2);  { Рисуем окна с разными координатами (кнопки)}
      if (i = SelectElement) then
      TextBackground (red)
      else
      TextBackground (blue);
      write (menu[i]);
   end;
   TextBackground (blue); ... Читать дальше »